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COME FUNZIONA IL CONCORSO? 


Prima di entrare nel dettaglio del Regolamento che per altro consigliamo di 
leggere attentamente, descriviamo il meccanismo di questo strabiliante con- 
corso, organizzato dalla J.C.E. 

Ci preme innanzitutto chiarire che la Giuria è il pubblico, ossia i lettori di 
Sperimentare con l’Elettronica e il Computer, e ciò sottolinea la filosofia di 
dialogo e di fiducia, in cui la redazione non si pone, come in altri casi spesso 
avviene, nella presuntuosa posizione di infallibilità! 

Ogni mese a partire dal numero di Giugno 1984, la rivista pubblicherà i quat- 
tro migliori programmi pervenuti in redazione, e giudicati dalla nostra com- 
missione tecnica. | lettori troveranno quindi i listati di questi quattro program- 
mi ed un tagliando sul quale scriveranno il titolo del programma che sarà 
parso più meritevole, per qualsiasi motivo. 

Fra tutti i lettori che avranno inviato il tagliando sarà estratto, ogni mese, un 
computer Sinclair Spectrum 16 K!!! 

Questa procedura si ripeterà per sei mesi, quindi sui numeri di Giugno, 
Luglio/Agosto, Settembre, Ottobre, Novembre e Dicembre, quindi ogni mese 
saranno pubblicati quattro programmi, il tagliando da spedire e fra i tagliandi 
sarà estratto uno Spectrum 16 K. 

Alla fine di questa prima fase usciranno, dunque sei programmi classificati al 
primo posto in ciascuna delle sei “batterie”. 

Noi li sottoporremo al giudizio dei lettori, pubblicando sul numero di Marzo 
1985 un nuovo tagliando sul quale andranno indicati, in ordine di preferenza, 
tuttii sei programmi. | primi tre saranno premiati, e fra i lettori sarà estratto di 
nuovo uno Spectrum 16 K. 

Mica male, eh, che ne dite? 

ll regolamento è riportato sulla rivista “Sperimentare con l’Elettronica e il 
Computer”. 


1° CONCORSO 
SINCLUB 1984-85 


| Sinclair Club e i Sinclairisti sono spes- 
so vere e proprie fonti di idee per il mi- 
glior impiego del nostro beneamato 
spectrum; è un peccato che la maggior 
parte di queste idee restino nel casset- 
to, o nel migliore dei casi vengano resi 
noti alla ristretta cerchia degli amici. 
Uno degli scopi del Sinclub è proprio 
quello di dare le ali a chi le merita. Da 
qui l’idea di un concorso a premi, orga- 
nizzato dalla J.C.E., aperto a tutti. Il 
concorso inizierà il 1° Aprile e termi- 
nerà Il 31 Dicembre 1984; tutti 
potranno inviare alla redazione’ di 
Sperimentare con l’Elettronica e 
il Computer entro il suddetto perio- 
do loro programmi più interessanti ed 
originali. 

| programmi devono essere me- 
morizzati su cassetta e devono esse- 
re spediti alla redazione di Sperimen- 
tare con l’Elettronica e il Computer al 
seguente indirizzo: 


J.C.E. - CONCORSO SINCLUB 
VIA DEI LAVORATORI, 124 
20092 CINISELLO BALSAMO (MI) 


SIM, 


CARTA O NASTRO? 
di Pietro dell’Orco 


9 


WRITE 


LA POSTA 
DEI LETTORI 


10 


SINCLAIR 
SHOPPING 

trad. e adatt. 

di Lucio Bragagnolo 


LA 


LA MENTE DI 
ALGERNON 

di J.Mc. Allister 
trad. e adatt. 

di Marcello Spero 


17 
REM:HW 


NEI MEANDRI 
DELLO SPECTRUM 
di Marcello Spero 


ATTACCO 
NUCLEARE 

di Mathew Homer 
trad. e adatt. 

di Paolo Maffei 


BIORITMI 

di Patrick Garfield 
trad. e adatt. 

di Lucio Bragagnolo 


I CRISTALLI 

DI ZAPHOD 

di Roger Harmsworth 
trad. e adatt. 

di Angelo Motta 

IL CASTELLO DEI 
DRAGONI 

di Norman Brooks 

trad. e adatt. 

di Angelo Motta 


IL DIVORATORE 
PAZZO 

di Michael Parrish 
trad. e adatt. 

di Marcello Spero 


CAMPO DI 
BATTAGLIA 

di James Thurlby 
trad. e adatt. 

di Marcello Spero 


MODULO LUNARE 


di Gary Moore 
trad. e adatt. 
di Marcello Spero 


COMBAT 
di Paolo Agnelli 


FLOWCHART 
di Brian Sides 
trad. e adatt. 

di Paolo Agnelli 


CUBO 2D 

di Paul Clansey 
trad. e adatt. 

di Paolo Mambretti 


ANIMAZIONE 

di Duncan Overton 
trad. e adatt. 

di Paolo Mambretti 


67 SOTTOMARINO 
di Brian Wilson 
trad. e adatt. 

di Paolo Maffei 


PICNIC 


di Graham Ramsden 
trad. e adatt. 
di Paolo Maffei 


73 


70 


RECENSIONE 
SOFTWARE 

a cura 

di Lucio Bragagnolo 


76 
- Riba 


RECENSIONE LIBRI 


a cura 
di Lucio Bragagnolo 


79 


I CLUB SINCLAI 


80 
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BIT SHOP PRIMAVERA 


La più grande catena di computer in Europa 


AGRATE BRIANZA Via G. Matteotti, 99 
ALBA Via Paruzza, 2 

ALESSANDRIA Via Savonarola, 13 
ANCONA Via De Gasperi, 40 

AOSTA Av. Conseil Des Commis, 16 


BARI C.so Cavour, 146 
BASSANO DEL GRAPPA 

Via J. Da Ponte, 51 
BELLANO Via Martiri della Libertà, 14 
BENEVENTO Via E. Goduti, 62/64 
BERGAMO Via S. F D’Assisi, 5 
BIELLA Via Tripoli, 32/A 
BOLOGNA Via Brugnoli, 1 
BOLOGNA Di fronte Stazione Centrale 
BRESCIA Via B. Croce, 11/13/15 
BRINDISI Via P. Togliatti, 22 
BUSTO ARSIZIO Via Gavinana, 17 


CAGLIARI Via Zagabria, 47 
CALTANISSETTA Via R. Settimo, 10 
CAMPOBASSO Via Mons. II Bologna, 10 
CASAPULLA Via Appia 128 
CASTELFRANCO VENETO 

Via S. Pio X, 154 
CATANIA Via Muscatello, 6 
CATANZARO Via XX Settembre, 62 A/B/C 
CESANO MADERNO Via Ferrini, 6 
CESENA Via Elli Spazzoli, 239 
CINISELLO BALSAMO V.le Matteotti, 66 
COLICO Pza Cavour, 24 


9 COMO Via Bellinzona, 157 


COMO Via L. Sacco, 3 
CONEGLIANO Vie Italia, 128 
COSENZA Via Massava, 25 
CREMA Via IV Novembre, 56/58 
CUNEO C.so Nizza, 16 


EMPOLI Via Masini, 32 
FANO Pzza Marconi, 6/7 


FAVRIA CANAVESE C.so G. Matteotti, 13 
FIRENZE Via G. Milanesi, 28/30 


I FIRENZE Via Centostelle, 5/B 


FIORENZIOLA D'ADDA 

C.so Garibaldi, 125 
FOGGIA Vle Europa, 44/46 
FORLÌ P.zza Melozzo Degli Ambrogi, 1 


GALLARATE Via A. Da Brescia, 2 
GENOVA Via Domenico Fiasella, 51/R 
GENOVA Via S. Vincenzo, 129/R 
GENOVA-SESTRI Via Chiaravagna, 10/R 
GENOVA-SESTRI Via Ciro Menotti, 136/R 
GENOVA Via Storace, 2 Ar 

(angolo C. Rolando) 


IMPERIA Via Delbecchi, 32 
IMPERIA Via A. Doria, 45 


LANCIANO Via Mario Bianco, 2 
LA SPEZIA Via Lunigiana, 481 
LECCE Via Marinosci, 1/3 
LECCO Via L. Da Vinci, 7 
LEGNANO C.so Garibaldi, 82 
LIVORNO Via Paoli, 32 

LUCCA Via S. Concordio, 160 
LUGO (RA) Via Magnapassi, 26 
LUNO Via Monte Grappa, 3 


MACERATA Via Spalato, 126 
MANTOVA Via Cavour, 69 
MESSINA Via Del Vespro, 71 
MILANO Via Altaguardia, 2 
MILANO Via G. Cantoni, 7 
MILANO Via E. Petrella, 6 


MILANO Galleria Manzoni, 40 
MIRANO-VENEZIA Via Gramsci, 40 
MODENA Via Fonteraso, 18 
MONFALCONE Via Barbarigo, 28 
MONZA Via Azzone Visconti, 39 
MORBEGNO Via Fabani, 31 


NAPOLI Via Morosini, 8 

NAPOLI C.so Vittorio Emanuele, 54 
NAPOLI Via Luca Giordano, 40/42 
NOVARA Via Perazzi, 23/B 


PADOVA Via Fistomba, 8 (Stanga) 
PADOVA Via Piovese, 37 
PALERMO Via Libertà, 191 : 
PALERMO Via Notarbartolo, 23 B/C 
PARMA Borgo Parente, 14/E 

PAVIA Via C. Battisti, 4/A 
PERUGIA Via R. D’Andreotto, 49/55 
PESCARA Via Conte di Ruvo, 134 
PESCARA Via Trieste, 73 
PIACENZA Via IV Novembre, 60 
PISA Via Emilia, 36 

PISA Via XXIV Maggio, 101 
PISTOIA V.le Adua, 350 

POMEZIA Via Roma, 39 
POTENZA. Via G. Mazzini, 72 
POZZUOLI Via G.B. Pergolesi, 13 
PRATO Via E. Boni, 76/78 


RECCO Via B. Assereto, 78 
REGGIO CALABRIA Via S. Marco, 8/B 
REGGIO EMILIA Via S. Giuseppe, 2 
RIETI Via Cintia, 70 

RIMINI Via Bertola, 75 

ROMA Pza San Donà di Piave, 14 
ROMA Via G. Villani, 24-26 

ROMA Vie dei IV Venti, 152/F 
ROMA Via Valsavaranches, 18/26 
ROMA Via del Traforo, 136 
ROVERETO Via Fontana, 8/B 


S. DONA DI PIAVE Pzza Rizzo, 61 
SALERNO C.so Garibaldi, 56 
SANREMO Via S. Pietro Agosti, 54/56 
SASSUOLO Pzza Martiri Partigiani, 31 
SESTO CALENDE Via Matteotti, 38 
SENIGALLIA Via Maierini, 10 
SIRACUSA Viale Scala Greca, 339/9 
SORRENTO V.le Degli Aranci, 31/M/L 


TARANTO Via Polibio, 7/A 
TERMOLI Via Martiri della Resistenza, 88 
TORINO C.so Grosseto, 209 
TORINO Via Tripoli, 179 
TORINO Via Nizza, 91 
TORINO C.so Racconigi, 26 
TORINO C.so B. Telesio, 4/B 
TRENTO Via Sighele, 7/1 
TREVISO Via IV Novembre, 13A 
TRIESTE Via Fabio Severo, 138 
TRIESTE Via F Filzi, 4 
TRIESTE Via Paolo Reti, 6 


UDINE Via Tavagnacco, 89/91 


VARESE Via Carrobbio, 13 
VERBANIA-INTRA 

P.zza Don Minzoni, 32 
VENEZIA Cannaregio, 5898 
VERCELLI Via Dionisotti, 18 
VERONA Stradone S. Fermo, 7 
VIAREGGIO Via A. Volta, 79 
VICENZA Via del Progresso, 7/9 
VIGEVANO C.so V. Emanuele, 82 
VOGHERA Pzza G. Carducci, 11 


COMPETENZA in COMPUTER 


LA PIU GRANDE 
CATENA DI COMPUTER IN EUROPA. 
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NON 
UN ABBONAMENTO 


UN SUPERABBONAMENTO 


Questo è ciò che la J.soft ti offre: un superabbonamento ad una rivista! 
Una eccezionale offerta di lancio: 15 numeri di SUPERSINC ad un prezzo 
di 10 oltre la possibilità esclusiva di ricevere mensilmente, con la copia 
della rivista, il supporto magnetico con tutti i programmi pubblicati. 
L'offerta è valida fino al 31/8/1984. 


LE NOSTRE SUPERPROPOSTE ABBONAMENTI 


Abbonamento* a 15 numeri (4 nel 1984 + 11 nel 1985) 
di SUPERSINC al prezzo speciale di L. 35.000 
anziché L. 56.000. 


Abbonamento* a 15 numeri di SUPERSINC + 15 cassette 


con tutti i programmi pubblicati al 
prezzo speciale di L. 75.000, anziché L. 120.000. 


*L’abbonamento decorrerà dal prossimo numero 


Abbonarsi è semplice! Effettuate il versamento con l’apposito modulo 
C.C.p. inserito in questo fascicolo, oppure ritagliate il tagliando 
abbonamenti pubblicato in questa pagina e speditelo allegando un 
assegno intestato a: 

J.soft - Via Rosellini 12 - 20124 Milano. 


Tagliando abbonamento a SUPERSINC da inviare in busta chiusa a: 
J.soft - Via Rosellini 12 - 20124 Milano 


O Desidero sottoscrivere un abbonamento a 15 numeri (4 nel 1984 + 11 nel 1985) di SUPERSINC al 
prezzo speciale di L. 35.000 anziché L. 56.000. 


O Desidero sottoscrivere un abbonamento a 15 numeri (4 nel 1984 + 11 nel 1985) di SUPERSINC 
+ 15 cassette con tutti i programmi pubblicati al prezzo speciale di L. 75.000 anziché L. 120.000. 


via città 

cap. provincia data 
firma 

Contanti allegati 

Assegno allegato n° 


Ho spedito l'importo a mezzo vaglia postale 


Ho versato l'importo sul ccp. n° 19445204 intestato a Technoclub - Milano 
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vrete tutti seguito l'evolversi delle riviste nel settore della ‘piccola in- 

formatica”, quella del personal e home computer per intenderci. Molti 
editori hanno rivolto il proprio interesse alla diffusione di riviste su cassetta 
che, tra l’altro, hanno riscosso da parte del pubblico un certo successo. Poi 
l’escalation al vertiginoso ritmo di una nuova testata la settimana. 
Tralasciando volutamente i discorsi circa la provenienza del materiale con 
cui alcuni di questi prodotti vengono confezionati (qualcuno, prima o poi, 
se ne accorgerà e allora... ) passiamo a rispondere alla domanda che legitti- 
mamente ci potreste porre: “e voi...?”. 
Dal canto nostro abbiamo scelto il tradizionale supporto cartaceo per tutta 
una serie di motivi che, per quanto soggettivi, ci hanno trovato, in redazio- 
ne tutti d'accordo. 
L'utilizzo del computer, qualunque esso sia, richiede una certa manualità e 
tale attributo si acquisisce solo mettendo mano alla tastiera, meglio se per 
battere un buon programma. 
Ci sono a questo punto due modi di digitare un programma: il modo ‘’sco- 
piazzo” e il modo intelligente; praticando il primo l'arricchimento personal. 
culturale sarà alquanto scarso; nel secondo caso invece, quello intelligente, 
il programma, preso in qualche caso a pretesto, sarà assai utile alla com- 
prensione del linguaggio, del modo in cui il calcolatore lavora, ecc. ecc. 
Eseguire la battitura di un programma cercando di capire il perché di una 
particolare istruzione e sforzandosi di comprendere il significato è certa- 
mente uno dei migliori modi per avvicinare e capire la propria macchina. 
C'è poi, per i più “tosti’’ (mi pare che il gergo preveda tale termine per defi- 
nire i più bravi) la possibilità di porre mano al programma modificandone il 
funzionamento a proprio gusto. 
In ogni caso per chi non dovesse condividere la nostra filosofia c'è sempre 
la possibilità dell'abbonamento che, oltre alla rivista, prevede la cassetta 
con i programmi pronti all'uso. 
Ben vengano quindi le pubblicazioni ‘“pret-a-porter”; noi, fedeli a quello che 
da sempre è il mezzo più efficace per l'apprendimento, proponiamo il soft- 
ware su carta che richiede sì un maggior lavoro per l'utente ma... vuoi met- 
tere poi la soddisfazione?!! 


Pietro Dell’Orco 
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Piccola guida 
all’input 
dei programmi 


programmi pubblicati da SUPERSINC sono stati 
I accuratamente provati e verificati. In questo mo- 
do speriamo di avere ridotto al minimo la possibilità 
di errori. 
Nel caso comunque un programma dovesse presen- 
tare malfunzionamenti, pubblicheremo le modifiche 
da apportare in uno dei numeri immediatamente suc- 
cessivi della rivista. 
Per utilizzare i programmi pubblicati è sufficiente di- 
gitare i relativi listati sulla tastiera del calcolatore. 
Nel caso dello ZX SPECTRUM, abbiamo previsto una 
semplice decodifica dei tasti da digitare nel modo 
grafico, per semplificare la comprensione dei listati. 
Come è noto, lo SPECTRUM è provvisto di 2 serie di 
tasti grafici: una prima serie di 16 caratteri grafici 
predefiniti (i tasti numerici da 1 a8 e gli stessi ‘“shif- 
tati”) e una serie di caratteri definibili dall'utente 
nell’ambito di un programma (le lettere da A a U). 
In entrambi i casi, per ottenere i caratteri desiderati 
occorre entrare in modo grafico (cursore contrasse- 
gnato dalla lettera G lampeggiante) premendo con- 
temporaneamente i tasti CAPS-SHIFT e 9. 
Nei nostri listati i caratteri grafici predefiniti sono in- 
dicati da una Q seguita dal numero corrispondente al 
testo che occorre digitare, il tutto racchiuso tra due 
parentesi graffe. 


Quando leggete 


Premete 


Ì 
TO IMIHIO ]O]w Ì 


SRO N] 


{G1} 
{62} n 
A 
{G3} E 
{64} [Log ® 
{G5} ai L 
{66} [s_Pi a 
{67} "n 
{G8} DL] 
{SG1} sa le 
{sc2} Meta e) ll Se dovete 
(SG3} sn mm Pe 
{sc4} RGS Cla P 
{sc5} LI 
{SG6} CI o 
{SG7} KR a Lal 
{sc8} Li 
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Iz e R]uIH 


Ad esempio {G4]} significa che occorre digitare il ta- 
sto 4, con il cursore in modo grafico. 
Analogamente la codifica SG, seguita da un numero 
da 1 a 8, significa che occorre digitare il relativo ta- 
sto numerico premendo contemporaneamente il ta- 
sto CAPS-SHIFT. 

Ad esempio quando si trova la codifica [{SG2}, occor- 
re premere il tasto 2 contemporaneamente al tasto 
CAPS-SHIFT, ovviamente con il cursore in modo gra- 
fico. In entrambi i casi precedenti, quando un simbo- 
lo grafico deve essere digitato più volte, i caratteri G 
o SG della codifica sono preceduti da un numero che 
specifica quante volte va premuto il tasto grafico in- 
dicato. 

Così ad esempio [8G5] significa che il tasto grafico 5 
va digitato 8 volte e analogamente [4SG1} indica che 
il tasto grafico 1 e CAPS-SHIFT devono essere battu- 
ti 4 volte. 

| caratteri grafici definibili (le lettere da A a U in mo- 
do grafico) hanno una codifica semplificata: la lette- 
ra corrispondente, sottolineata. 

Quando in un listato viene presentata, ad esempio, 
una A sottolineata, occorre entrare in modo grafico 
(al solito premendo contemporaneamente i tasti 
CAPS-SHIFT e 9) e quindi digitare semplicemente il 
tasto che contrassegna la lettera A. 


Simbolo grafico 
definito nel 
programma in uso. 


Quando leggete Premete 


Se non siete 
già in modo 
G, entrateci reti 
schiacciando ar 
pr cani schiacciate 9 
CAPS SHIFT 

e9 


CX lettori, 
dati i ristrettissimi tempi di stampa e l'anticipo con cui viene redatta que- 
sta rubrica, anche per questo numero restiamo in trepida attesa dei vostri 


primi contributi. 


Mentre attendiamo, abbiamo pensato di fornirvi ugualmente qualcosa di in- 
teressante - almeno speriamo: una piccola raccolta di “chicche” (minipro- 
grammi, bug, trucchi e così via) come al solito tratti dalle migliori riviste in- 


glesi. 


A risentirci presto e buone vacanze a tutti! 


Patterniamoci! 


Caro SUPERSINC, 

credo che i lettori potrebbero essere 
interessati a un piccolo programma 
generatore di pattern che ho scritto per 
il mio ZX81 (e, ho adattato per lo Spec- 
trum). Entrambi i programmi produco- 
no pattern casuali, che non è difficile 
modificare cambiando a piacere i valo- 
ri di A$, Y e/o X. 

Per avere la stampa dei pattern, basta 
aggiungere ai programmi due linee del 


tipo 
280 IF INKEY$ = “THEN GO TO 280 
285 IF INKEY$ = “Z” THEN COPY 


Spero che i programmi vi facciano di- 
vertire per un po"! 

Fedelmente vostro 

B.J. Funnell - Watford. 


10 RANDOMIZE 
20 LET a$="{SG5}{SG3}{G3}{G5}" 


100 LET y=5 
110 DIM c$(y) 
120 FOR j=1 TO y 


130 LET x=INT (RND*4)+1 
140 LET c$(j)=a$ (x) 

150 NEXT j 
170:-PRINT_:AT:21,:30p". .* 
180 PRINT AT 21,30;y 
190 PRINT AT 0,0; 

200 LET v=INT (704/y) 
205 LET w=704-(v*y) 

210 FOR k=1 TO v 

220 PRINT c$; 

260 NEXT k 

270 PRINT c$(1 TO w) 
290 GO TO 100 


La redazione | 


10 RANDOMIZE 
20 LET a$="{G1}{G3}{G5}{G7} 
{G2}{G4}{G6}{G8}{SG8}{SG6} 
{SG4}{SG2}{SG7}{SG5}{SG3} 
{SG1}{G8}{G2}{G7}{G3}{G6} 
{G4}{G5}{SG5}{SG6}{SG4} 
{SG3}{SG2}{G7}{G2}{G6}{G2} 
{G6}{G4}{SG4}{SG5}{SG2} 
{SG5}{SG4}{SG3}{SG5}{G4} 
{G2}{G8}{G6}{G5}{SG4}{SG5} 
{SG7}" 
50 LET n=INT (RND*12)*4+1 
60 LET b$=a$(n TO n+3) 
100 LET y=INT (RND*64+1) 
110 DIM c$(y) 
120 FOR j=1 TO y 
130 LET x=INT (RND*4)+1l 
140 LET c$(j)=b$ (x) 
150 NEXT j 
170 PRINT AT 21,30;"_ _" 
180 PRINT AT 21,30;y 
190 PRINT AT 0,0; 
200 LET v=INT (704/y) 
205 LET w=704-(v*y) 
210 FOR k=l1 TO v 
220 PRINT c$; 
230 NEXT k 
240 PRINT c$(1 TO w) 
250 GO TO 50 
10 FOR r=0 TO 6143 
20 POKE 16384+r,255 
30 PAUSE 2 
40 NEXT r 


ZX81 e USR 


Egregia redazione di SUPERSINC, 

ho trovato gli indirizzi di alcune USR 
(User SubRoutine) dello ZX81 che po- 
trebbero essere utili per chi program- 
ma in linguaggio macchina o sta co- 
minciando a farlo. 


REI AGIRE RSI Ie € 


Ecco le routine con il rispettivo indiriz- 
zo decimale e l'equivalente BASIC (se 
esistente): 


3875 FAST 
3086 SCROLL 
1047 equivalente a EDIT 
930 equivalente a BREAK 
*757 SAVE 
*833 LOAD 
2955 equivalente a “,” in PRINT 


Se il numero è preceduto da un asteri- 
sco, il computer deve essere in modo 
FAST. L'istruzione LOAD è a mio pare- 
re una delle più utili in quanto mi con- 
sente di copiare giochi dei miei amici 
per avere la possibilità di analizzarli ve- 
dendo come funzionano. 

Fedelmente vostro 


Gary Threadgold - Clwyd 


Out of memory error 


Ho notato che possono sorgere proble- 
mi con lo ZX Spectrum dopo avere me- 
morizzato e usato programmi in lin- 
guaggio macchina. 

Se si tenta di caricare, subito dopo, un 
programma ragionevolmente lungo, 
appare il messaggio “H out of memo- 
ry, O:1” o, se il caricamento avviene 
senza problemi, il programma si bloc- 
ca dopo il RUN. Questo avviene perché 
di solito i programmi in linguaggio 
macchina lasciano lo Spectrum con la 
variabile di sistema RAMtop abbassata 
a un valore inferiore a quello consueto. 
Anche dopo avere dato NEW o EN- 
TER, la macchina crede di disporre di 
meno memoria di quanto in realtà pos- 
sieda. 

La soluzione più semplice è quella di 
spegnere e riaccendere, cancellando 
dalla memoria anche il linguaggio 
macchina;. oppure digitare CLEAR 
32767 (65535 per i 48K). Un altro si- 
stema (quello che uso io) è quello di 
dare RUN USR 0. 


Jeff Warren 
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Tutto ciò che avete sempre deside- 
rato per il vostro Sinclair e non sa- 
pevate dove (e come) trovare 


computer Sinclair sono probabil- 
Lacie tra quelli più forniti di softwa- 
re e periferiche dei tipi più svariati. 
Partendo dal materiale della stessa 
Sinclair (ZX Printer, espansioni di me- 
moria, Interfaccia 1, Interfaccia 2, Mi- 
crodrive...) per arrivare alle varie com- 
pagnie indipendenti, è infatti possibile 
disporre di una gamma vastissima di 
programmi e hardware per tutti gli usi 
-e tasche -ampliando in modo sensibile 
le possibilità del vostro calcolatore. 
Lo scopo di questo articolo è di darvi 
un quadro della situaione del mercato 
indipendente; per forza di cose riusci- 
remo appena a scalfirne la superficie, 
ma siamo sicuri che per molti di voi le 
notizie che leggerete saranno perlome- 
no oggetto di curiosità. Se poi decide- 
ste di effettuare realmente degli acqui- 
sti, seguite i consigli contenuti nella 
nota che abbiamo espressamente pre- 
parato e che potete leggere sempre in 
queste pagine: vi saranno di aiuto! 
Ultima cosa: per telefonare in Inghil- 
terra, prima di comporre il numero ve- 
ro e proprio, fate 00 (prefisso per le 
chiamate internazionali) seguito da 44, 
prefisso per le chiamate in Gran Breta- 
gna. 


FIRMWARE 


EPROM per tutti 


La EPROM Services possiede un’am- 
pia gamma di prodotti per ZX81 e 
Spectrum. Al prezzo di 19 sterline c'è 
una scheda EPROM, capace di allog- 
giare fino a 8K con semplici modifi- 
che. Viene resa disponibile anche 
un'unità di autostart (9.95) che, all'atto 
dell'accensione, si porta automatica- 
mente all'indirizzo esadecimale FD00. 
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trad. e adatt. di Lucio Bragagnolo 


Per quanto riguarda lo ZX81, ci sono 
varie EPROM con prezzo compreso tra 
9.95 e 19 sterline che possono essere 
usate per LOAD/SAVE rapidi, tool kit 
disassemblatori, set di caratteri alter- 
nativi o grafici, e altri usi ancora. Per 
altri prodotti, non menzionabili per ra- 
gioni di spazio, rivolgetevi direttamen- 
te alla EPROM Services, telefonando al 
0532/667183 o indirizzando la posta al 
3 Wedgewood Drive, Leeds LS8 1EF. 


mer. 


APE Pd 


Scheda Haven Hardware 


La Haven possiede una vasta selezione 
di schede aggiuntive, sia per Spectrum 
che per ZX81. 

Per quest'ultimo, sono a disposizione 
un generatore programmabile di carat- 
teri (15.95); un modulo per l’autore- 
peat dei tasti (3.95), l’inverse video 
(3.50) e il beep di tastiera (6.95); una 
porta di I/0(11.95), una tastiera (18.95) 
e altro ancora. | prezzi sono quelli dei 
prodotti in scatola di montaggio: per 
unità già montate vi è una maggiora- 
zione del 25% circa. Per ulteriori infor- 
mazioni, scrivete al 4 Asby Road, 
Asby, Workington, Cumbria CA14 
4RR o telefonate al 094/686627. 


Sempre più Forth 


Molto interessante questo accessorio 


Sinclair shopping 


per lo Spectrum - una cartuccia ROM 
contenente 12K di Fig-Forth, un’inter- 
faccia RS232 VIA 8251 e 24 bit di 1/0 
paralleli VIA 8255. 

La ROM BASIC viene esclusa e rim- 
piazzata dalla ROM Forth, che contie- 
ne tutte le istruzioni standard del Fig- 
Forth. Il dispositivo offre anche un si- 
stema operativo Forth multitasking, 
un assembler Z80 per definizioni Forth 
in linguaggio macchina, la possibilità 
di supportare un modem, un generato- 
re di baud rate per la RS232 con con- 
trollo al quarzo, un monitor per codice 
macchina, routine per stampanti 
RS232 e Centronics e 4K di ROM per 
aggiunte successive. 

Il package viene venduto a 59 sterline 
+ VAT (il corrispondente dell’IVA). 
Per informazioni più dettagliate, con- 
tattate David Husband, 2 Gorleston 
Road, Branksome, Poole BH12 INW. Il 
telefono è 0202/764724. 


Scusi, sa l’ora? 


Il Time Controller della Glanmire Elec- 
tronics consiste in un orologio alimen- 
tato a batterie con otto entrate e otto 
uscite, tutte programmabili. 

Grazie alle istruzioni contenute nella 
sua PROM, per leggere - o scrivere - 
mese, data, giorno, ore, minuti, secon- 
di è necessaria una sola istruzione. Il 
Time Controller dispone anche di un 
connettore di espansione utile per il 
collegamento di altre periferiche. Il 
prezzo si aggira sulle 34 (ZX81) o 38 


sterline (Spectrum). Se siete interessa- 
ti, scrivete a Glanmire Electronics, We- 
stely House, Trinity Avenue, Bush Hill 
Park, Enfield EN1 1PH, o telefonate al 
01/3363245. 


One slot beyond... 


La MUKBUS Card Frame System si at- 
tacca al connettore posteriore dello 
Spectrum, dotandolo di una scheda 
madre con sei slot di espansione. Tra 
le opzioni possibili offerte dalla Micro- 
text, segnaliamo due floppy disk con- 
troller, interfaccia RS232/Centronics, 
video a 80 colonne, 64K RAM e un let- 
tore di codice a barre. Prezzo della 
scheda 59.95 per l'alimentatore. Con- 
tattate Microtext UK Ltd, Highland 
House, 20-24 John St, Luton, Beds 
(tel. 0582/418894). 


IN BREVE 
Un’altra EPROM... 


La EPROM Card della Orme Electro- 
nics può fornire diverse facilitazioni 
per i vostri programmi BASIC. Con la 
EPROM inserita nello spazio normal. 
mente dedicato alla ROM dello Spec- 
trum, avete a disposizione 10 routine 
extra per renumber, editing, operazio- 
ni sui caratteri e così via. Il prezzo è di 
9.95 sterline. Per informazioni contat- 
tate la Orme Electronics, 2 Barripper 
Road, Camborne, Cornwall TR14 7QN 
o telefonate al 0209/715034. 


...2 un’altra ancora 


Il modulo MZ-8 è progettato per l’inter- 


facciamento con lo ZX81 ed è dotato 
di due funzioni, selezionabili tramite 
interruttori presenti sulla scheda. La 
prima consente di immagazzinare con- 
temporaneamente in memoria - fino 
all'occupazione totale di 6K - un massi- 
mo di 10 programmi in BASIC e/o in 
linguaggio macchina; la seconda forni- 
sce 6K di memoria extra. Il software ri- 
siede in una EPROM di 2K, che per- 
mette anche una opzione di monitor. 
MZ-8 viene venduto a 44.90 sterline; 
potrete saperne di più scrivendo a 
Micro-Z Ltd, PO Box 83, Exeter, Devon 
EX4 7AF. 


Se siete «espansivi» 

Specspansion è una scheda madre a 
quattro slot per lo Spectrum. Si con- 
nette direttamente al retro dello ZX, e 
permette il collegamento con più peri- 
feriche. Per una spesa intorno alle 30 
sterline, riceverete il package comple- 
to comprensivo di software. 
L'indirizzo è FB Tronic, Unit 2, Park 
Brook Industrial Estate, Park Strett, 
Lye, Stourbridge, West Midlands DY9 
8SS. 


adattatori per tutti 


Stephen Adams è in grado di fornirvi 
alcune interessanti realizzazioni per 
Spectrum e ZX81. Partiamo dallo 
Straight Adaptor, capace di dotare lo 
Spectrum della stessa porta di espan- 
sione dello ZX81 senza però effettuare 
conversioni di indirizzi di memoria. 
Adams ha anche sviluppato gli Adam 
and Eve Adaptors: il primo vi permette 
di collegare allo Spectrum 16K qua- 
lunque RAM pack compatibile Sinclair 
(normalmente attaccabile solo allo 
ZX81), mentre il secondo consente la 
connessione allo Spectrum 48K di 
qualsiasi periferica che operi nei primi 
16K di memoria dello ZX81. Dovrebbe 
essere disponibile anche una seconda 
versione, più versatile, di Adam deno- 
minata Adam Il Adaptor; il prezzo è di 
9 sterline cadauno. Un altro dispositi- 
vo è l’RZ1, costo 20 sterline, disponibi- 
le per entrambi i computer, che dà la 


possibilità di controllare via software 


le operazioni di LOAD/SAVE (e relati- 
ve operazioni coi cavetti di collega- 
mento). Altri dettagli sono ottenibili 
telefonando al 01/2541869 o scriven- 
do a Stephen Adams, 1 Leswun Road, 
London N16 7NL. 


Dulcis in fundo... 


La scheda di interfaccia della Intercep- 
tor Micros è progettata per connettere 
joystick tipo Atari allo ZX Spectrum. 
Può ospitare due joystick e altre perife- 
riche. Corredata da istruzioni detta- 
gliate e da una cassetta dimostrativa, è 
reperibile presso Interceptor Micros, 
Lindon House, The Green, Tadley, 
Hants. 


MEMORIE INTERNE ED 
ESTERNE 


sembra arabo!... 


A puro titolo di curiosità vi segnaliamo 
l'esistenza di un dispositivo che, inseri- 
to tra lo ZX81 e un'espansione di me- 
moria, fornisce un completo set di ca- 
ratteri, funzioni e istruzioni BASIC 
in...arabo. Il tutto è completato da una 
mascherina sovrapponibile alla tastie- 
ra e da un esauriente manuale di istru- 
zioni. Pensiamo che questa notizia in- 
teressi un numero estremamente ri- 
stretto di lettori (forse anche meno...); 
tuttavia vi diamo lo stesso l’indirizzo 
della casa costruttrice, di cui non co- 
nosciamo il nome: PO Box 147, Jed- 
dah, Saudi Arabia. 


tutto, ma proprio tutto 


L'Organic Micro è costituito da una se- 
rie di moduli sovrapponibili, e com- 
prende una serie di espansioni funzio- 
nanti con ZX81 e Spectrum. La base 
(anche in senso fisico) del sistema è 
l'interfaccia Persona, direttamente col- 
legata al calcolatore, su cui successiva- 
mente sono innestabili i vari moduli. 
L'elenco di questi comprende espan- 
sioni di memoria, interfaccia Centro- 
nics, porte I/O, memorizzazione non 
volatile di programmi, utilities grafi- 
che e perfino il Sonus, un nuovo pac- 
kage che comprende un versatile sin- 
tetizzatore di suoni. 

Tra i progetti futuri della società figu- 
rano, tra l’altro, un'interfaccia per flop- 
py disk, un controller per joystick e un 
programmatore di EPROM. 

Il modulo Persona costa 39.50 sterline, 
mentre gli altri variano dalle 22.20 alle 
41.75. Per mettervi in contatto con la. 
BASICare Microsystems telefonate al 
01/3852135 o scrivetele presso 12 Ric- 
kett Street, London SW6 1RU. 


IN BREVE 

se volete i floppy 

Compatibilità con i drive Shugart da 
51/4 a singola o doppia densità e con 
i drive giapponesi da tre pollici e mez- 


zo, il tutto per lo ZX81: ecco cosa offre > 
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il floppy disk controller della Analo- 
gue Information Systems, al prezzo di 
40 sterline circa. Potrete saperne di 
più scrivendo al 43 Gilmour Road, 
Edinburgh 16 o telefonando al 
031/6676862. 


Technology Research Ltd. 


La Technology Research Ltd. ha an- 
nunciato la disponibilità di una inter- 
faccia per floppy disk per lo Spectrum, 
compatibile con i drive standard Shu- 
gart o con i nuovi drive per microflop- 
py. Telefonate per informazioni al 
01/6995332; l'indirizzo è 57 Brockley 
Rise, London SE23. 


INTERFACCE 
stampanti Tandy... 


L'interfaccia Softest permette a Spec- 
trum e ZX81 di connettersi alla stam- 
pante semi intelligente Tandy CGP- 
115. 

L'interfaccia consente di stampare te- 
sti e grafica, variando i formati di rap- 
presentazione. E fornita di software, 
scritto in linguaggio macchina, e costa 
35 sterline. La Softest fornisce anche 


del software addizionale per consenti- 
re il COPY dello schermo. Scrivete al 
10 Richmond Lane, Romsey, Hants 
S05 OLA. 


...@ Centronics 


Questa interfaccia rende possibile l’in- 
terfacciamento dello Spectrum con 
stampanti tipo Centronics. 

Dotata di un cavo di collegamento lun- 
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go un metro, si attacca sul retro del 
computer. Il software fornito permette 
l’uso delle funzioni LLIST e LPRINT, il 
COPY dello schermo e lo sfruttamento 
della massina ampiezza di stampa ot- 
tenibile, senza cioè la limitazione di li- 
stati e testo “formato video” a 32 co- 
lonne. 

L'interfaccia, utilizzabile anche dagli 
Spectrum 16K non espansi, è piena- 
mente compatibile con famoso word 
processing Tasword Il e, con marginali 
modifiche, col Vu-Calc Psion. 

Il package completo è in vendita a 45 
sterline. Rivolgetevi per maggiori in- 
formazioni alla Kempston Micro Elec- 
tronics, 180 A Bedford Road, Kemp- 
ston, Bedford MK42 8BL scrivendo, 
oppure telefonando al 0234/852997 


Advanced Digital Systems 


Tra i prodotti della ADS figura una in- 
terfaccia Centronics per Spectrum e 
ZX81. 

Fornita con una garanzia di 12, l’inter- 
faccia riconosce i comandi BASIC 
LLIST e LPRINT. Il prezzo è di 34.50 
sterline, l'indirizzo è 9 Bonchurch 
Road, Portsmouth, Hanz PO4 8RY, il 
telefono è 0705/823825. 


IN BREVE 
tutto e subito 


La Morex ha riunito due interfacce, 
una RS232, e una Centronics in una 
sola scatola, con versioni per ZX81 e 
Spectrum. A un prezzo di 39.95 sterli- 
ne. Diventa possibile stampare su tutta 
la larghezza della stampante in uso, 
utilizzare le istruzioni LLIST e LPRINT 
e selezionare il baud rate ottimale la 
versione Spectrum possiede un siste- 
ma operativo residente, così da assicu- 
rare la compatibilità con i package di 
word processing. Per quanto riguarda 
lo ZX81, è disponibile software per 
l'uso di word processing e di utility 
grafiche. Mettetevi in contatto con la 
Morex Peripherals Ltd telefonando al 
0734/478854 o scrivendo al 2 Baliol 
Road, Caversham, Reading, Berks. 


perfino il word processor 


La Hilderbay ha prodotto un interfac- 
cia per lo Spectrum, completa di soft- 
ware scritto in BASIC e in linguaggio 
macchina, comprendente una routine 
per ottenere la stampa dello schermo e ‘ 
un mini word processor Tasword. Il 
prezzo è di 45 sterline; maggiori detta- 
gli possono essere richiesti alla Hilder- 
bay Ltd, 8-10 Park Way London NWI 
TAA. E possibile anche effettuare ordi- 
ni telefonici allo 01/4851059. 


quasi niente... 


Una interfaccia parallela è ciò che 
ugualmente offre la Euroelectronics, 
questa volta però a “sole” 30 sterline. Il 
software fornito permette, al solito, 
l’uso dei comandi LLIST e LPRINT, ma 
necessita di aggiunta per l'abilitazione 
del COPY (disponibili, su richiesta). 
Scrivete alla Euroelectronics, Slin 
House, Oakfield Street, Cheltenam, 
Glos GL50 20. 


...qQuasi tutto! 


La Cobra Technology ha sviluppato 
due interfacce per lo ZX81, per la con- 
nessione a stampanti seriali RS232 o 
parallele Centronics, con possibilità di 
variazione del baud rate da software. 
Entrambe le interfacce costano 26 
sterline - VAT esclusa - e sono reperibi- 
li al 378 Caledonian Road, Islington, 
London NI IDY. 


TASTIERE 


Dk’tronics 

La Dk'tronics dispone di una tastiera 
applicabile a ZX81 o Spectrum. Que- 
sta ha 52 tasti, di cui 12 riuniti a forma- 
re un tastierino numerico. Potrete sa- 
perne di più rivolgendovi direttamente 
alla Dk'tronics, Unit 2, Shire Hill Indu- 
strial Estate, Saffron, Walden, Essex 
CBII 3AX, per posta o telefonando 
(0799/26350). 


Steatite Insulations 


Questa tastiera, della Steatite Insula- 
tions, consente una digitazione di tipo 
professionale. Il contenitore è del tipo 
a basso profilo, e i tasti sono inclinati 
per agevolare l'operatore. La confezio- 
ne è completa di manuale di istruzioni, 
e potrete averle per 30.95 sterline ri- 
volgendovi alla Steatite Insulations 
Ltd, Hagley House, Hagley Road, Bir- 
mingham BI6 8QW. Il numero di tele- 
fono è 021/4546961. 


IN BREVE 
Possom Controls 


Esistono anche tastiere speciali per 
handicappati fisici. La Possom Con- 
trols ne offre tre, la Desk-top Scan- 
ning, la Briefcase Scanning e la Expan- 
ded Keyboard, ognuna delle quali dise- 
gnata per handicap specifici. | prezzi 
variano notevolmente col variare dei 
dispositivi di input utilizzati: per infor- 
mazioni più dettagliate conviene scri- 
vere alla Possom Controls Ltd, Middle- 
green Road, Langley, Berks SL3 6DF o 
telefonare al 0753/79235. 


Filestixty Ltd 


Veramente basso il prezzo di questa ta- 
stiera (9.95 sterline), alloggiata in un 
contenitore di resina nera e capace di 
migliorare in discreta misura la scarsa 
ergonomicità della tastiera dello ZX81. 
L'indirizzo della ditta produttrice (la Fi- 
lestixty Ltd) è 25 Chippenham Mews, 
London W9 2AN, mentre il telefono è 
01/2893059. 


Microtext 


Parliamo ancora della Microtext, e pre- 
cisamente della sua tastiera per ZX 
Spectrum. Commercializzata a un 
prezzo di 53.45 sterline, dispone tra 
l’altro di tasti per il controllo del curso- 
re e di un tasto di “fuoco”. Indirizzo e 
numero telefonico sono quelli già ri- 
portati a proposito del MUKBUS Card 
Frame System, sotto la voce Firmwa- 
re. 


Fruller Micro System 


La tastiera FD42 non è stata progettata 
solamente per contenere lo ZX81 o lo 
Spectrum, ma anche per collegare pe- 
riferiche ed espansioni (famosi i joy- 
stick) della Fuller. La tastiera è di 42 
tasti, alcuni dei quali programmabili. Il 
prezzo dell’unità è di 29.95 sterline: 
per altri ragguagli rivolgetevi diretta- 
mente alla Fuller Micro Systems, The 
Computer Centre, Dale Street, Liver- 
pool 2. Per telefono, la Fuller risponde 
al 051/2366109. 


E NON È FINITA... 


Per questo numero la nostra velocissi- 
ma carrellata termina qui. Nel prossi- 
mo potrete leggere, tra l’altro, di joy- 
stick e sintetizzatori vocali. 


Non è poi così 
difficile... 


di Marcello Spero . 


‘acquisto di prodotti esteri per corrispondenza normalmente suscita 
L parecchie perplessità; forte è infatti il timore di veder sfumare i propri 
sudati risparmi senza ricevere niente, e senza la possibilità di far valere 
le proprie ragioni. Tristi passate esperienze, dovute alla poca serietà di 
qualche commerciante che vendeva ciò che non possedeva, hanno por- 
tato ad un generale sfiducia, peraltro immeritata, circa questo tipo di 
commercio. L'idea che il proprio denaro venga in questo modo messo “a 
rischio” è generalmente errata, ma nel caso del mercato britannico, che 
ci interessa particolarmente in questo momento, risulta completamente 
infondata. 

Da due anni, compro abitualmente materiale di ogni tipo riguardante lo 
Spectrum direttamente dalla Gran Bretagna, a mezzo posta, senza aver 
mai avuto problemi. Nel periodo iniziale, ‘‘pioneristico” dello Spectrum, 
questa era l'unica via per entrare in possesso di libri, riviste, periferiche o 
qualsiasi altro materiale che lo riguardasse; ancora oggi, comunque, ri- 
mane un sistema di acquisto insostituibile per tutti quegli articoli che ri- 
mangono irreperibili qui da noi. 

Ecco, per tutti coloro che volessero provare, una piccola guida per mini- 
mizzare dubbi e problemi. 

Prima di tutto è conveniente scrivere alla ditta venditrice del prodotto 
che vi interessa specificando chiaramente cosa desiderate e chiedendo 
se è loro possibile inviare la merce in Italia, e quanto verrà a costare la 
spedizione. Potrete, con l'occasione, chiedere ulteriori notizie e dati tec- 
nici. Non è nemmeno il caso di ricordare che tutto questo lo dovrete scri- 
vere in inglese... Per assicurarvi la risposta includete nella vostra lettera, 
secondo l’abitudine inglese, una busta già indirizzata a vostro nome ed 
un coupon internazionale di risposta, che acquisterete all'ufficio postale 
centrale della vostra città. 

A questo punto non vi resta che attendere una risposta. Per questo calco- 
late una settimana perché vi rispondano, ed una settimana per il viaggio 
di ritorno. Quando finalmente saprete l'esatto ammontare richiesto (è 
estremamente difficile che otteniate un rifiuto) potrete recarvi all'ufficio 
postale (sempre quello centrale) per spedire un vaglia internazionale. E 
questo infatti, a mio parere, il mezzo più comodo per inviare denaro 
all’estero. All'impiegato addetto dite pure l'importo in sterline: provve- 
derà lui a calcolare il corrispettivo in lire. Nel caso, peraltro raro, di ac- 
quisti particolarmente onerosi, potrete trovarvi di fronte un limite massi- 
mo di invio, aggirabile utilizzando più vaglia. A questo punto scrivete 
un'altra lettera specificando di nuovo cosa volete, ed includete una foto- 
copia della ricevuta. In questo modo può capitare che la merce vi sia in- 
viata prima che i vostri soldi arrivino materialmente, sotto forma di asse- 
gno circolare internazionale, al destinatario (per questo può essere ne- 
cessario anche un mese). Può sembrare incredibile, ma a me è capitato 
(con la Quicksilva), e mi son visto recapitare il passo qualcosa come una 
settimana dopo aver inviato l'ordinazione. 

Per acquisti di poco conto ed ordinare subito, calcolando le maggiori 
spese per la spedizione internazionale in un paio di sterline. In questo ca- 
so, però, ricordate che se per qualsiasi motivo la cosa non dovesse fun- 
zionare, vi sarà rispedito il vostro assegno circolare in sterline e non tra- 
sferibile, e dovrete attendere tempi lunghissimi per il suo rimborso da 
parte delle poste. 

Se farete le cose con attenzione sono sicuro che non rimarrete delusi. 
Attendo le lettere di quanti vorranno provare. 


La fecit puntata di LE INTERRUZIONI, TEORIA E PRATICA 
SULLO ZX SPECTRUM verrà pubblicata nel numero 3, in edicola 
nel mese di Settembre 
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PINO RMATICA 


di J. McAllister 
trad. ed adatt. di Marcello Spero 


Insegnare a un computer: proble- 
matiche ed un esempio di microin- 
telligenza artificiale. 


gesatta natura dell’intelligenza 
L umana, ed in particolare il modo 
dell'umano apprendimento, è da anni 
oggetto di ricerca da parte di innume- 
revoli studiosi, psicologi in particolar 
modo. Più recentemente, con il pro- 
gresso dell'elettronica e l’accresciuta 
potenza degli elaboratori, la riprodu- 
zione artificiale dell’intelligenza è dive- 
nuta argomento di interesse anche per 
gli ingegneri. 
| due campi di studio furono uniti dal 
lavoro di Alan Turing, il quale pubbli- 
cò il primo studio dettagliato, in teoria 
ed in pratica, sulla capacità da parte di 
una macchina di essere in grado di gio- 
care. Con questo egli voleva illustrare 
il suo interrogativo fondamentale: può 
una macchina pensare? Turing previde 
che la realizzazione di computer suffi- 
cientemente veloci avrebbe permesso 
la ‘meccanizzazione’ di qualsiasi pro- 
cesso mentale, idea questa che allora, 
erano gli anni cinquanta, fu considera- 
ta per lo meno rivoluzionaria, se non 
eretica. La sua morte sopravvenne pri- 
ma che la tecnologia fosse in grado di 
fornirgli i mezzi per una dimostrazione 
pratica di questa idea, ma molti altri, 
basti qui ricordare Shannon, portaro- 
no avanti ricerche simili, con il risulta- 
to che oggi è convinzione diffusa che 
sia possibile per una macchina egua- 
gliare e forse superare la capacità di ra- 
gionamento del cervello umano. 
Molti giochi possiedono una struttura 
tale da renderli un ottimo strumento 
per esaminare i processi del pensiero. 
Vanno comunque esclusi da questo 
campo i giochi di tipo “arcade” che, 
pur richiedono grande ingegno da par- 
te dei programmatori, sono troppo li- 
mitati per poter dire qualcosa sull’in- 
telligenza di tipo “meccanico”. Sono 
inoltre da escludere, ovviamente, quei 
giochi in cui il computer serve unica- 
mente da segnamosse e contapunti, 
senza avere alcun ruolo attivo. Potrem- 
mo definire il tipo di gioco in cui l’in- 
telligenza ha un ruolo fondamentale 
come una competizione dove ciascun 
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La mente di Algernon 


giocatore deve sviluppare una strate- 
gia a lungo termine, nonché reagire 
nel breve termine con una tattica ap- 
propriata alla luce delle mosse del suo 
avversario. Giochi che soddisfano que- 
sta definizione sono il tris, cinque in fi- 
la, in nim, othello, la dama, gli scac- 
chi, e molti giochi di carte. 

All’interno di questo elenco possiamo 
operare una suddivisione in due cate- 
gorie: giochi completamente definiti e 
giochi non completamente definiti. In 
un gioco completamente definito è 
possibile predire se, dato un gioco cor- 
retto da entrambe le parti, il risultato 
sarà la vittoria del primo o del secondo 


giocatore, od un pareggio. Il tris è ap- 
punto un gioco completamente defini- 
to, in cui il secondo giocatore può 
sempre vincere o pareggiare. All’estre- 
mo opposto gli scacchi, gioco non 
completamente definito poiché il nu- 
mero totale delle sue varianti è tanto 
ampio da non essere mai stato calcola- 
to. 

Nel caso di un gioco completamente 
definito un metodo ovvio consiste 
nell'immagazzinare tutte le possibili 
varianti, in modo che la macchina pos- 
sa rispondere valutandole tutte prima 
di muovere. Un simile tipo di program- 
ma, sebbene anche in questo caso sia 


richiesta una notevole capacità da par- 
te del programmatore, può essere con- 
siderato al massimo l’equivalente della 
forma più bassa di istinto animale. 
Ad un livello già più elevato c’è l’idea 
di comprimere la strategia in una sin- 
gola regola, o in un insieme di regole, 
di gioco corretto. Un esempio di que- 
sto tipo lo troviamo nel nim, dove tutta 
la strategia di gioco è contenuta nella 
regola che impone di far conservare la 
parità alla rappresentazione binaria 
della posizione. Questa tecnica può es- 
sere considerata analoga alla capacità 
umana di astrarre e generalizzare. 


Il comportamento di gioco di livello 
più elevato per una macchina lo trovia- 
mo probabilmente negli scacchi. | pro- 
grammi e le macchine per il gioco de- 
gli scacchi sono così avanzate da poter 
dare una lezione anche ad un maestro. 
Più potente è il programma, più in là 
sarà capace di guardare per analizzare 
ciascuna posizione, e più complesse 
saranno le “compressioni” delle varie 
strategie con cui è equipaggiato. 

Per meritare l'aggettivo di intelligente, 
però, non è sufficiente che una mac- 
china od un programma sappiano ana- 
lizzare, astrarre, generalizzare, ricorda- 
re e confrontare; dovranno avere la ca- 
pacità di migliorare con l’esperienza, 
cioè di imparare. Un programma che 
sappia far questo potrà arrivare a fare 
cose per cui non era stato originaria- 
mente programmato, ed è in questa di- 
rezione che si aspettano i maggiori 
progressi nel campo dell’intelligenza 
artificiale. 


Un celebre racconto di qualche anno 
fa, Fiori per Algernon, narrava di un ra- 
gazzo mentalmente insufficiente tra- 
sformato per un breve periodo in un 
genio, per ripiombare subito dopo nel- 
la sua condizione di subnormale. Da 
principio il programma che porta que- 
sto nome non ha idea di come vincere, 
ma dopo alcune partite la sua tecnica 
di gioco migliora; infine, dopo un dato 
numero di giochi, definito dal pro- 
grammatore, diventa imbattibile, arri- 


10 GO SUB 175 
15 CLS 
20 LET: 0=0t (LET=z=1 


25 LET n=21l: LET q$="{21SG5}": 


vando a possedere la strategia perfet- 
ta. 

Il gioco in sé è banale, poiché lo scopo 
principale del programma è l'indagine 
sul modo di apprendimento da parte 
della macchina della corretta tecnica. 
Due giocatori, a turno, tolgono degli 
oggetti da una pila di 21, ed il perdente 
è colui che prende l’ultimo. Si tratta di 
un gioco completamente definito, con 
una strategia molto semplice che si ri- 
solve nella vittoria del secondo gioca- 
tore. 

E consentito togliere uno, due o tre og- 
getti per volta; in questo modo tutto 
ciò che il secondo giocatore deve fare 
è togliere un numero di oggetti tale da 
portare a quattro il totale rimosso du- 
rante quel turno. Logicamente dopo 
cinque turni se ne saranno andati 
5x4= 20 oggetti, ed il primo giocato- 
re sarà costretto a prendere l’ultimo. 
Solo uno sciocco potrebbe perdere 
giocando come secondo ed essendo in 
possesso di questa semplice regola. 
Questa è appunto la condizione inizia- 
le del computer il quale, lasciato con 
tre oggetti, potrà benissimo prenderli 
tutti e dire “hai vinto tu”. 

Il programma, comunque, sebbene 
all’inizio non sia munito della strategia 
perfetta, possiede i mezzi per scoprirla 
(è intelligenza?) e, man mano che au- 
menta il numero di partite disputate, 
migliorarla al punto da giocare senza 
commettere errori. 


Descrizione del programma 


Nel programma, la linea 10 e la su- 
broutine servono a dare le istruzioni e 
possono quindi essere omesse. 

Le linee 15-25 sono di inizializzazione. 
Le linee 30-45 e la variabile z impedi- 
scono errori di gioco da parte del gio- 
catore umano. 

Linee 40-75. La variabile m stabilisce a 
chi tocca: m=0 significa che è il gio- 
catore umano che deve muovere. K è il 
mumero di oggetti prelevati; se è cor- 
retto viene sottratto al totale, e ciò che 
rimane viene stampato. M è inoltre uti- 


lizzata nel processo di apprendimento. 
Le linee 80-120 stabiliscono la mossa 
della macchina, che avviene a caso ma 
nelle regole finché c'è minore di 10. Se 
c-è uguale o maggiore di 10 la macchi- 
na farà la mossa perfetta contenuta in 
linea 85. 

Le linee 125-145 stabiliscono chi ha 
vinto, stampano un messaggio adatto 
ed aggiornano c. La variabile c aumen- 
ta di 2 quando la macchina vince, e di 
1 quando perde. Questo in accordo 
con la teoria che l'apprendimento va 
stimolato premiando i risultati positi- 
vi. Se lo desiderate potete modificare il 
programma in modo che c sia lasciato 
immutato o addirittura decrementato 
quando la macchina perde. In questo 
modo il computer, per imparare, dovrà 
vincere a causa degli errori umani, e 
perciò sarà opportuno far giocare un 
bambino. —. 

Linea 145. E essenziale dare ‘“s” se si 
vuole che la macchina impari, poiché 
ogni volta che viene dato RUN tutte le 
variabili sono reinizializzate, ed il pro- 
gramma ripiomba nella condizione di 
stupidità. 

Il campo dell’intelligenza artificiale è 
stato a torto lungamente trascurato da- 
gli appassionati, poiché possiede molti 
aspetti affascinanti ed è un’area in cui 
gli hobbisti potrebbero fornire reali 
contributi alla scienza della program- 
mazione. Pensate per esempio alle 
scoperte fatte dagli astronomi dilettan- 
ti. 

Un immediato sviluppo del program- 
ma che abbiamo visto potrebbe consi- 
stere nel fare in modo che sia la mac- 
china a giocare per prima. In questo 
caso non potrà essere equipaggiata 
con una strategia perfetta, né con i 
mezzi per trovarne una, ma sarà inte- 
ressante programmarla per imparare a 
giocare la miglior partita possibile, 
sfruttando cioè gli errori avversari per 
raggiungere una situazione vincente. 
Il programma ed i suoi sviluppi do- 
vrebbero inoltre fornire del materiale 
utile ai bambini più piccoli che impa- 
rano i numeri. 


50 IF z=1l THEN GO TO 30 
55 LET n=n-k: LET q$=q$( TO n) 


. 


60 PRINT "ne restano ";n 


<>INT k THEN LET z=1 


LET m=l: LET p=1+INT (3* 
IF p>n THEN GO TO 80 


IF c>9 THEN LET p=4-k 
IF n=2 THEN LET p=l 
LET n=n-p IRC 

INPUT "premi ENTER per la m 
ia mossa";r$ 


PRINT qs 
30 IF z=1 THEN PRINT: 75 PRINT gQq$ 
PRINT "tocca a te: togline 80 
1:26 37; ma non piu' de RND): 
l totale" 
35 PRINT "quanti ne togli? "; 
85 
40 LET m=0: INPUT k: PRINT k: 90 
LET z=0 95 
45 IF k>n OR k<1 OR k>3 OR k 100 
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105 
110 
D15 
120 
125 
130 
135 


140 
145 


150 
55 


160 
d'#5 


180 


185 


190 


195 


re dall'esperienza. 


PRINT "ne tolgo ";p'"ne res 
tano ";n 

LET q$=q$( TO n): PRINT q$ 
IF n<2 THEN GO TO 125 

GO TO 35 

LET d=n 

IF d=1 THEN PRINT 
o" 

IF d<>1 THEN PRINT 
vinto" 

LET c=c+d+1 

INPUT "giochi di nuovo? (s/ 
n) ";as$ 

IF a$="s" OR a$="S" OR a$=" 
" THEN =«L5.:..GO..Ma 25 
PRINT "grazie per aver gioc 


"ho:--vint 


"hai 


ato": PRINT : PRINT 
STOP 
PAPER 7? INK 0° CLS': 


PRINT "Questo programma vu 
ol dimostrarela posibilita' 
per una macchina di impara 
Come 
esempio viene usato 

gioco molto semplice." 
PRINT "In questo gioco, i d 
ue giocatoririmuovono a tur 
no 4,45 O 3 mattoni da 
una fila di 21. Perdecolui 
che prende l'ultimo." 
PRINT "Giocando correttamen 
te, il risultato do 
vrebbe sempre essere la 
vittoria per il secon 
do giocatore (la macchina), 
ma questa da principio fara 
, molte mosse sciocche." 


PRINT "La macchina impara. 
con l'esperienz 
a, e ad un certo punto non 
potra' piu' essere battu 
ta. Per arivare a questo 
dovrete rispondere ""s"" qu 
ando visara' chiesto di gio 
care ancora." 
INPUT "ENTER per iniziare 
";a$: RETURN 


Un’esplorazione all’ultimo bit del- 
le possibilità del vostro calcolato- 
re. 


o Spectrum è una macchina sem- 
L plice nei suoi concetti costruttivi, 
ma piuttosto complicata in pratica. 
D'altra parte un minimo di approfondi- 
mento circa il suo funzionamento è 
sufficiente per poter realizzare un sac- 
co di piccoli congegni che, con una 
spesa veramente esigua, sono in grado 
di ampliarne in maniera davvero scon- 
certante l'orizzonte delle applicazioni. 
Scopo (o meglio tentativo...) di questa 
serie di articoli è appunto portare 
avanti, mese dopo mese, due linee pa- 
rallele e fra loro strettamente intercon- 
nesse: l’approfondimento teorico e le 
realizzazioni pratiche. 
Questa puntata sarà dedicata, come si 
conviene ad ogni inizio, ad una ricapi- 
tolazione generale sui principi di fun- 
zionamento dello Spectrum. Per molti 
saranno cose scontate, per altri no; i 
primi portino pazienza: verrà anche il 
loro momento. 
Sempre in questa puntata esaminere- 
mo il significato dei vari contatti pre- 
senti sul connettore di espansione po- 
sto sul retro dello Spectrum. Questa 
descrizione non sarà più ripetuta, e 
perciò ci servirà da riferimento nelle 
puntate successive. 


Lo schema generale dello 
Spectrum 


Diamo dunque uno sguardo d’insieme 
ai vari componenti dello Spectrum, ed 
ai loro rapporti. Il nostro sarà necessa- 
riamente un esame superficiale, riser- 
vandoci di riprendere ed approfondire 
i singoli argomenti quando se ne pre- 
senterà l'occasione. Visto che ci propo- 
niamo di realizzare dispositivi che col- 
leghino il nostro computer con l’ester- 
no, ci interesseremo particolarmente 
di quelle cose che con tale tipo di ap- 
plicazioni hanno più direttamene a che 
fare, trattando più rapidamente quelle 
parti dell'hardware che sono per noi di 
puro interesse teorico. Lo Spectrum è 
un sistema basato sul microprocessore 
Z80A. Ciò significa che questo ne è la 
CPU (Central Processing Unit), cioè 
l’unità centrale di elaborazione. Come 
dice il nome, non è detto che la CPU 
debba essere l’unico congegno, all’in- 
terno di un computer, che elabora dati; 
sarà però il meccanismo che svolge la 
gran parte di questo lavoro, ed in ma- 
niera più flessibile. Lo Z80A è una ver- 
sione più veloce (cioè capace di com- 
piere un numero maggiore di opera- 
zioni in uno stesso lasso di tempo) del- 
lo Z80; infatti, mentre quest’ultimo 


può operare ad una frequenza di clock. 


(cioè ad un “ritmo di operazione”) non 
maggiore di 2,5 MHz (milioni di cicli al 
secondo), lo Z80A arriva a 4 MHz. Per 
ragioni di sincronismo con le operazio- 
ni del televisore ad esso collegato, nel- 
lo Spectrum la frequenza usata è di 3,5 
MHz. Si tratta di un microprocessore 
ad 8 bit; ciò vuol dire che i suoi registri 
(cioè i “posti” dove sono tenuti i risul- 


Nei meandri dello 
Spectrum 


LATO A 


1A A15 bit 15 del bus indirizzi (vedi testo) 

2A A13 del bus indirizzi 

3A D7 bit 7 del bus dati (vedi testo) 

4A non collegato 

5A fessura per il corretto allineamento del connettore 

6A DO bit 0 del bus dati 

7A DI bit 1 del bus dati 

8A D2 bit 2 del bus dati 

9A DE bit 6 del bus dati 
10A DS bit 5 del bus dati 
11A D3 bit 3 del bus dati 
12A D4 bit 4 del bus dati 
13A = INT può essere usato per richiedere dall'esterno una interruzione, o 
per impedire le interruzioni a parte dell’ULA (vedi testo) collegandolo di- 
rettamente a +5 volt 
,15A = HALT indica che la CPU ha eseguito una istruzione halt, e sta quindi 
aspettando una interruzione per poter ripartire 
16A = MREQ indica una richiesta della memoria da parte della CPU (vedi 
testo) 
17A =IORQ indica una richiesta di collegamento con l’esterno a parte del- 
la CPU (vedi testo) 
18A =RD richiesta di lettura da parte della CPU (vedi testo) 
19A = WR richiesta di scrittura da parte della CPU (vedi testo) 
20A linea di alimentazione a -5 volt 
21A = WAIT se questa linea viene portata allo stato logico zero, la CPU so- 
spende ogni sua attività. Può essere utilizzata nel caso di congegni esterni 
lenti, che hanno bisogno di essere “aspettati”. Il suo uso, comunque, ri- 
chiede prudenza, poiché durante questi periodi non viene effettuato nean- 
che il rinfresco della memoria, e tempi di attesa superiori ad 1 msec sono 
quindi pericolosi 
22A linea di alimentazione a + 12 volt 
23A linea di alimentazione a + 12 volt non stabilizzati (il manuale inglese 
riporta per errore la dicitura ‘“-12 v”) 
24A = MI] indica che la CPU è nel primo ciclo di un'operazione; sta cioè re- 
cuperando dalla memoria il codice di un'operazione 
25A =RFSH segnala che lo Z80 sta effettuando il rinfresco della memoria 
26A A8 bit 8 del bus indirizzi 
27A AI1O bit 10 del bus indirizzi 
28A non collegato 
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tati delle operazioni) sono composti da 
8 bit, e possono quindi contenere nu- 
meri da zero (00000000) a 255 (11111- 
111). La stessa dimensione l’ha il bus 
dati, cioè il mezzo con cui lo Z80 invia 
dati al mondo esterno e da questo ne 
riceve. Per facilitare le operazioni con 
numeri più grandi, comunque, è stata 
prevista la possibilità di formare delle 
“associazioni” di due registri, su cui 
possono essere effettuate molte opera- 
zioni considerandoli come un unico re- 
gistro. In tal modo i.numeri immagaz- 
zinabili possono arrivare al valore di 
65535 (11111111 11111111). Questo 
ha reso possibile l'adozione di un bus 
indirizzi, cioè la struttura con cui lo 
Z80 fa capire a chi sono diretti i dati 
che sta emettendo sul bus dati, o da 
chi desidera riceverli, sempre per mez- 
zo del bus dati, a 16 bit. Così la quanti- 
tà massima di “locazioni” diverse cui 
esso si può riferire è 65535, che divisa 
per 1024 dà 64: 64K. E infatti questa la 
massima quantità di memoria diretta- 
mente indirizzabile dallo Z80, poiché 
anche, e specialmente, la memoria fa 
parte di quel mondo esterno per colle- 
garsi al qual esso deve usare i bus. E 
poiché il bus dati, l'abbiamo visto pri- 
ma, è ampio 8 bit, ogni locazione di 
memoria conterrà un dato composto 
da 8 bit, cioè di valore compreso fra ze- 
ro e 255. Una memoria organizzata in 
locazioni di 8 bit è una memoria suddi- 
visa in byte. Kbyte e il multiplo di que- 
sta unità, frequentemente abbreviato 
in K (lo avete appena visto): un K non è 
uguale a 1000 byte, ma alla quantità di 
byte che può essere indicata da un nu- 
mero ampio 10 bit, e cioè 1024 (2 ele- 
vato alla decima. 


Abbiamo parlato di un “mondo ester- 
no”, contrapponendolo a quanto c’è 
all'interno (i registri con i dati avuti 
dall'esterno, e i risultati da inviare 
all'esterno) dello Z80. Bene, questo 
mondo è, agli occhi del piccolo micro- 
processore, diviso nettamente in due 
categorie: ciò che è memoria e ciò che 
non lo è. Non basta, infatti, che esso 
specifichi il valore della locazione con 
cui desidera comunicare; deve anche 
dire se si tratta di una locazione di me- 
moria o di “non memoria”, cioè dell’in- 
dirizzo di un congegno esterno. Per 
questo lo Z80 invia un segnale su una di 
due linee, chiamate appunto = MREQ 
(Memory Request) per una richiesta di 
memoria, e =IOREQ (Input/Output 
Request) se vuole un congegno ester- 
no. Ma non basta ancora; perché il suo 
messaggio non sia ambiguo, esso deve 
chiarire cosa vuole fare: inviare o rice- 
vere dati? Altre due linee chiariscono 
quest'ultimo dubbio; sono = RD (Read) 
per indicare che vuole leggere, cioè ri- 
cevere, dati, e = WR (Write) per dire 
che vuole scrivere, cioè inviare, dati. Il 
segno che compare sui nomi di alcune 
linee, come in questo caso e in molti 
altri in futuro, indica che quella linea è 
attiva (cioè indica qualcosa) quando il 
suo stato logico è zero; se inutilizzata 
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LATO B 


1B A14 bit 14 del bus indirizzi 

2B A12 bit 12 del bus indirizzi 

3B linea di alimentazione a +5 volt 

4B linea di alimentazione a +9 volt non stabilizzati 

5B fessura di centraggio del connettore 

6B linea a 0 volt 

7B linea a 0 volt (due linee sono necessarie ad evitare sovraccarichi) 

8B CLK il segnale di clock CK a 3,5 MHz. Può servire a sincronizzare con 
la CPU apparati esterni 

9B AO bit 0 del bus indirizzi 
10B A1 bit 1 del bus indirizzi 
11B A2 bit 2 del bus indirizzi 
12B A3 bit 3 del bus indirizzi 
13B = [ORQGE collega la linea = IORQ della CPU con l’ULA 
Portandola a + 5 volt si impedisce all’ULA di ricevere il segnale di richiesta 
dallo Z80. In questo modo tutte le periferiche dipendenti dall’ULA non ver- 
ranno servite, anche se la CPU lo richiederà. 
14B linea a 0 volt, collegata normalmente al circuito video 
15B VIDEO questo e i tre contatti che seguono dovrebbero portare i segna- 
li adatti a pilotare un monitor, ma non sono normalmente collegati alle op- 
portune sorgenti all’interno dello spettro. 
16B Y 
17BV 
18BU 
19B = BUSREQ portato al livello logico zero provoca la “scomparsa” dello 
Z80, che in pratica cede tutti i suoi bus all’unità esterna che glieli chiede; a 
conferma di ciò porta a livello logico zero la linea = BUSACK 
20B = RESET portata a livello logico zero provoca il ritorno della CPU alla 
locazione di memoria zero, dove attenderà il suo ritorno a livello logico 
uno e da cui ricomincerà l'esecuzione del programma. Questa azione viene 
provocata, per mezzo di un circuito di ritardo, ad ogni accensione del com- 
puter, per permettere ai vari circuiti di iniziare a funzionare regolarmente 
prima che la CPU inizi ad eseguire il suo programma 
21B A7 bit 7 del bus indirizzi 
22B A6 bit 6 del bus indirizzi 
23B A5 bit 5 del bus indirizzi 
24B A4 bit 4 del bus indirizzi 
25B = ROMCS collega la ROM con l’ULA. Se viene portato al livello logico 
uno provoca la “scomparsa” della ROM dalla memoria dello Spectrum. Na- 
turalmente per sostituirla dovrà essere collegata della memoria esterna 
agli stessi indirizzi, pena il blocco del sistema. Questo sistema è utilizzato 
dalla Sinclair per inserire quando è necessario la ROM supplementare 
dell'interfaccia 1 al posto di quella normale nonché per sostituire alla 


ROM, nell’interfaccia 2, la cartuccia inserita nell'apposita feritoia. 


26B =BUSACK vedi 19B 
27B AQ bit 9 del bus indirizzi 
28B A11 bit 11 del bus indirizzi 


avrà invece stato logico uno. » 

Visto che abbiamo nominato la memo- 
ria, vediamo brevemente come è orga- 
nizzata nello Spectrum. | primi 16K 
(cioè dall'indirizzo 0 all'indirizzo 
16383) sono costituiti normalmente 
da memorie di tipo ROM (Read Only 
Memory) cioè memoria che è stata 
“scritta” una volta per tutte dalla casa 
costruttrice, e il cui contenuto non può 
più essere mutato; contiene il pro- 
gramma in linguaggio macchina che 
rende la CPU capace di comprendere il 
Basic e di fare tutto quanto va fatto 
perché il computer funzioni. | successi. 
vi 16K o 48K, a seconda delle versioni, 
sono invece composti da memoria di 
tipo RAM (Random Access Memory) 
cioè memoria su cui si può scrivere, ol- 
tre che leggere. Qui vengono tenuti 
programmi, dati, e qualsiasi altra cosa 
abbia bisogno di essere conservata per 


un successivo uso. La RAM dello Spec- 
trum è di tipo dinamico; per conserva- 
re i dati che le sono stati affidati neces- 
sita cioè di un periodico rinfresco, che 
deve avvenire ad intervalli non mag. 
giori di 2 msec (millesimi di secondo). 
Questo tipo di memoria, sebbene me- 
no caro e meno avido di energia elet- 
trica rispetto al tipo statico (che non ha 
bisogno di rinfresco), necessita di esse- 
re collegato con un microprocessore 
predisposto per questa periodica ope- 
razione come è appunto lo Z80. Ambe- 
due le memorie, statica e dinamica, 
comunque, perdono irrimediabile- 
mente il loro contenuto se viene loro 
tolta l'alimentazione, cosa che non ac- 
cade, ovviamente, alla ROM. 

Il secondo grande protagonista all’in- 
terno dello Spectrum è l’ULA (Uncom- 
mitted Logic Array). Questo grosso cir- 
cuito integrato riunisce in sé moltissi- 


me funzioni, un tempo svolte da tanti 
circuiti separati. Alcune di queste fun- 
zioni riguardano la memoria, altre con- 
gegni esterni le prime sono essenzial- 
mente la lettura della zona di memoria 
dedicata all'immagine video e l’ammi. 
nistrazione dei primi 16K di memoria. 
La prima operazione consiste nel 
“guardare dentro” le locazioni dedica- 
te a contenere le informazioni che 
compongono l’immagine vera e pro- 
pria (che sono state qui collocate dalla 
CPU), e pilotare di conseguenza i tre 
cannoni che “dipingono” l’immagine 
sullo schermo televisivo. La seconda 
operazione è più delicata, e consiste 
nel risolvere gli eventuali conflitti che 
si vengono a creare quando sia la CPU 
che l’ULA hanno bisogno della stessa 
locazione di memoria, che può essere 
una di quelle dedicate all'immagine. 
Se, in questi casi, fosse l’ULA a cedere 
il passo, alcuni punti dello schermo 
non riceverebbero la loro informazio- 
ne, e l’effetto sarebbe una specie di 
“neve” sul video. In realtà le cose van- 
no invece così: quando l’ULA, che “tie- 
ne d'occhio” il bus degli indirizzi, si 
rende conto che la CPU vuole una delle 
locazioni comprese nei primi (e unici 
per chi ha il 16K) 16K di RAM, sempli- 
cemente blocca il clock (e di conse- 
guenza “sospende la vita” della CPU) 
per il tempo necessario alla lettura di 
una delle locazioni video. La CPU po- 
trà quindi usare a sua volta la memoria 
di questo primo blocco negli intervalli 
fra la lettura da parte dell’ULA di due 
successive locazioni dell’area video. E 


evidente a questo punto che quando la . 


CPU lavora con questo blocco di me- 
moria la sua velocità diminuisce in 
maniera considerevole. Il problema è 
comunque molto più vasto e merita di 
essere analizzato separatamente, cosa 
che faremo in una prossima puntata. 

Per quanto riguarda i congegni ester- 
ni, l'ULA invia e riceve dati dal regi- 
stratore a cassette, aziona l’altoparlan- 
te e, ultimo ma più importante compi- 
to, legge lo stato della tastiera. Mentre 
la parte riguardante la memoria essa 
gode di completa autonomia, in que- 
sto caso la ricezione o l’invio di dati de- 
vono essere subordinate ad una preci- 
sa richiesta della CPU. Oltre ad indica- 
re che si riferisce ad un congegno 
esterno, e specificare se vuole leggere 
o scrivere, questa dovrà specificare 
l'indirizzo corrispondente all’ULA. A 
questo punto occorre fare una precisa- 
zione; per quanto riguarda i congegni 
esterni, essendo questi un numero esi- 
guo nel caso dello Spectrum, i vari bit 
del bus indirizzi non vengono usati per 
formare un vero indirizzo, ma sono uti- 
lizzati indipendentemente, ciascuno 
per indicare un'unità esterna. Il bit che 
indica l’ULA è 1 o 0, cioè il primo. 
Quando questo bit ha valore logico ze- 
ro (nello Spectrum i bit inattivi dei bus 
hanno normalmente valore logico 
uno) l’ULA si sente “coinvolto” ed en- 
tra, a seconda della necessità, in rice- 


REM:H1W 


A11 288 284 NONCOLLEGATO 
A9 278|27A AI10 

BUSACK 268|26A A8 

ROMCS 258|/25A RFSH 
A4 248/244 MI 

AS 238|23A4 NON STABILIZZATO 

A6 228B|22A +12volts 


A? 218|21A WAIT 


RESET 208|20A Svolts 


BUSRO 198|19A WR 
u 188B|18A4 RD 

v 17B|17A 

y 168/164 
VIDEO 158|15A 
Ovolts 14B|14A NMI 
IOROGE 138|13A iN 
A3 128|12A D4 

A2 11B|11A_ D3 

AI 108|10A DS 

AO 98|9A D6 
CLK 88|8A_D2 
Ovolts 78|7A DI 
Ovolts 68 |6A DO 
SLOT 58|SA 
NON COLLEGATO 


+Svolts 38 |3A 07 


+9volts 4B |4A 


A12 28|2A, A12 


A14 1B|1A A15 


SLOT DI CIAEVIGOA 


La ‘mappa’ del connettore di espansione dello Spectrum. 


zione o in trasmissione. Seppure su- 
bordinato, come abbiamo detto, ad 
una richiesta della CPU, nel caso della 
lettura della tastiera l’ULA “reclama 
l'attenzione” ogni 20 msec, inviando 
un segnale di interruzione (sulla linea 
= INT) che costringe la CPU ad occu- 
parsene. 

È tutto qui. Gli altri componenti dello 
Spectrum sono infatti senza importan- 
za per la comprensione dei criteri ge- 
nerali di funzionamento. 


Il connettore di espansione 


Eccoci al connettore di espansione. 
Questa serie di contatti rende accessi- 
bili dall'esterno una serie di segnali e 
linee necessari al collegamento di peri- 


. 


feriche (così vengono chiamati tutti i 
congegni esterni): “ufficiali”, quali la 
stampante ZX o i Microdrive, o ‘‘perso- 
nali” come quelle che proveremo a 
realizzare noi. E importante quindi co- 
noscerne la “topografia”. Non preoc- 
cupatevi se i commenti, per forza di 
cose didascalici, in alcuni casi non 
chiariscono a fondo il significato di 
una linea; avremo modo di riesamina- 
re con calma ciascun contatto, e le sue 
applicazioni. 

Nella descrizione del riquadro vedete 
prima i contatti posti sulla faccia supe- 
riore del connettore, che chiameremo 
A, quindi quelli della parte inferiore, 
che chiameremo B. Fate sempre riferi- 
mento alla figura per la posizione dei 
singoli contatti. 
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- AR 03 66PROGRAMMI PER ZX81 
AStgazioni a colori BITE Zx80 CON NUOVA ROM 
#0 +HARDWARE 


144 Pagine 
Cod. 520 D 
L. 12000 


66 PROGRAMMI PER ZX81 
e ZX80 CON NUOVA ROM 
+ HARDWARE 

Come sfruttare tutte le 
capacità degli ZX e, 
addirittura, moltiplicarle 
144 pag. L. 12.000 

Cod. 520D 


PROGRAMMI 

DI MATEMATICA 

E STATISTICA 

Come acquistare la logica 
necessaria a risolvere con 
metodo, senza perdite di 
tempo, i problemi con il 
calcolatore 

228 pag. L. 16.000 

Cod. 552D 


SINFONIA PER UN 
COMPUTER VIC 20 
Imparare divertendosi è la 
prerogativa di questo libro: 
prima giocate e poi date 
un'occhiata ai listati dei 
programmi 

122 pag. L. 10.000 

Cod. 563D 


75 PROGRAMMI IN BASIC 

| PER IL VOSTRO 

| COMPUTER 

| Programmi sperimentati e 

| pronti da usare, oppure da 

| rielaborare, ampliare, 
modificare, assemblare 

| 196 pag. L. 12.000 

| Cod. 551D 


77 PROGRAMMI 

PER SPECTRUM 

Dalla Grafica alla Business 
Grafica, dalla musica alle 
animazioni, dai giochi 
all’Elettronica ... tutte le 
possibilità offerte dallo 


Libri firmati JACKSON 


> Rx 


PROGRAMMES 
SPECIROM 


Po caga RSS 
cons mazioni 
Wei à de 
nera 


Dem sa VO 


La Biblioteca che fa testo 


CEDOLA DI COMMISSIONE LIBRARIA 
VOGLIATE SPEDIRMI 


GIOCHI GIOCHI GIOCHI 
PER IL VOSTRO VIC 20 

Il modo più divertente di 
avvicinarsi al computer. 

Una trentina di giochi per il b 
vostro VIC 20 


Prezzo totale 


n° copie 


108 pag. L. 9.000 ] ee 

pag. L. 9. ei. 
sed [eee 
PROGRAMMI UTILI | 
PER IBM PC 


Oltre 65 programmi 
ampiamente collaudati e 
pronti per l’uso per il 


O Pagherò contrassegno al postino il prezzo indicato più L. 2000 per contributo fisso 
ì spese di spedizione 


Spectrum Personal Computer IBM ‘ Condizioni di pagamento con esenzione del contributo spese di spedizione: 
150 pag. L. 16.000 176 pag. L. 15.000 O Allego assegno della Banca D Allego fotocopia del versamento 
Cod. 555A Cod. 564D su c/c n. 11666203 a voi intestato 
| O Allego fotocopia di versamento 
Ì n° su vaglia postale a voi intestato 
— stern one na : I Nome 
| Attenzione compilare per intero Giaime 
| ritagliare (o fotocopiare) e spedire. fond MESERO 218 SIMONE IS SEE De Pt ELIA ale A 
in busta chiusa a: i s n bi 
GRUPPO EDITORIALE JACKSON Data Firma 
Divisione Libri i 
JACKSON bist 0 i ir 


ORDINE 
MINIMO 
L. 50.000 


di Mathew Homer 
trad. e adatt. di 
Paolo Maffei 


Difendete le vostre città dai missili 
nemici in questa iperrealistica si- 
mulazione dello Spectrum 


n questo programma siete a capo di 
fina base antiatomica posta a difesa 
di sei città. Il vostro compito è di difen- 
derle da eventuali attacchi nemici ri- 
tardando il più possibile la catastrofe 
atomica per consentire l'evacuazione 
delle città in tempo utile. 

A questo scopo disponete di 30 missili 
terra-aria, che possono essere lanciati 
contro i missili nemici che sopraggiun- 
gono. Dovete comunque difendere an- 
che la vostra base poiché, in caso di 
colpo a segno su di essa, perdereste i 
vostri missili. 

Le istruzioni per giocare (che è consi- 
gliabile guardare con un televisore a 
colori) sono contenute nel program- 
ma. 

Per ogni missile colpito si ricevono 
1000 punti, e se riuscirete a salvare 
tutte le città con un solo schieramento 
di missili riceverete dei punti bonus. 
Superando i 50.000 e i 100.000 punti 
guadagnerete una città in più. 

A complicare il tutto intervengono al- 
cuni bombardieri che lanciano missili 
volando a mezza altezza. E meglio col- 
pirli al più presto prima che sgancino il 
loro carico di morte! 

Un ultimo piccolo consiglio: lanciate i 
vostri missili in una posizione legger- 
mente più bassa rispetto a quelli nemi- 
ci così che questi ultimi si distruggano 
nell’esplosione del vostro colpo. 
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N.B. bis: il sistema di scansione della 


tastiera usato in questo programma 
non dà gli stessi risultati su tutti gli 
Spectrum. Se doveste avere problemi, 
un buon procedimento per sistemare 
la situazione è quello di cambiare alcu- 
ne linee a seconda del valore ritornato 


aalla funzione IN del vostro calcolatore 
quando nessun tasto viene premuto: il 
valore assunto da Attacco nucleare è 
255; può darsi che sul vostro sistema 
risulti 191, o un altro valore ancora. 
Per controllare battete questa linea 
(potete farlo anche col programma in 
memoria): 


9200 PRINT AT 0,0;IN 65278: GO TO 
9200 


Il numero mostrato in cima allo scher- 
mo è il valore di cui sopra. Premendo 
un tasto fra quelli nella metà sinistra 
della fila in basso - Z, X, C... - il valore 
cambierà. 

Ora, conoscendo il valore base e quelli 
di alcuni tasti diventa possibile appor- 
tare le modifiche necessarie. 
Sostituite 65278 ai vari numeri usati 
nel programma (notate che 65022 vie- 
ne controllato ma non usato - probabil- 
mente si tratta di un residuo di una 
precedente versione, eliminabile senza 
problemi). Ottenete i valori per i tasti 
che vi servono e poi modificate le linee 
135,990, da 1010 a 1035, 2050. 
Basandosi sul valore di 191, ecco cosa 
dovete cambiare: le linee 135 e 990 in 
HF IN _#6527B8+IN 57342+IN 
49150 (764 THEN GO SUB 1000 
Cancellate le linee da 1010 a 1035 in- 
cluse e sostituitele con 

1010 LET x=x+ (IN 64510=187 
eg x(30) - (IN 64510 = 189 AND 
Xx, ) 


1020 LET Y = Y- (IN 57342(191 AND 
y)0) + (IN 49150( 191 AND y( 19) 
Cambiate la linea 2050 in 

2050 IF IN 65278( 191 THEN GO SUB 
6000 

Se, nonostante tutto, aveste ancora 
problemi, scriveteci e vi aiuteremo! 


La redazione 


Attacco nucleare 


Linee 
2-62 
65-95 
100-995 


1000-2060 
2100-2209 


2210-2438 
2500-2760 
3000-3170 
4000-4130 
5000-5200 


6000-6049 
6050-6078 
6080-6120 
6130-6310 


6330-6900 


7000-7150 
7200-7620 


7985-8200 


versione per ZX Spectrum 48K 


2 LET xx=5: LET ss=0: 
42: INK 0: PAPER 5: 
BORDER 5: BRIGHT 0: 
° INVERSE 0: FLASH 0: 


BEEP .5,30 


LET pp= 


OVER 0 


CLS 3: 


3. DIM g(7): LET mm*7:© LET vv= 


OY se so 


: LET g(7)=228 


4 LET ab=28: LET ss=0: 


è LET g(1l)=28: LET g(2)=60 
LET g(3)=92: LET g(4)=128 
LET g(5)=164: LET g(6)=19 


DIM c$ 


(4,14): DIM c(3): LET ce(l)= 
0: LET c(2)=0: LET c(3)=0: 


GO TO 6050 
10 GO TO 4000 


ll OVER 0: INK 7: PAPER 0: 


BORDER 0: INVERSE 0: 


FLASH 0: BRIGHT l: CLS: 


GO TO 6080 


28 IF ss<0 THEN LET ss=0 


29 BEEP_.5,30 


30 DIM z(30): DIM m(30): 


DIM q 


(30): DIM i(11,2): DIM a(l1 
): DIM d(l1l1l): DIM e(ll): 


DIM £f(l11) 


Commento 

inizializzazione di punteggio e variabili 

determinano la rotta e il bersaglio dei nuovi missili 
esaminano la tastiera e determinano il movimento dei 
missili 

determinano se devono essere lanciati dei missili dalla 
base. 

diminuiscono il ritmo dell’attacco sulle città, determi. 
nano se l'attacco è finito o se tutte le città sono state di- 
strutte. 

routine per il tabellone dei migliori punteggi 

routine per i punti bonus 

controllano gli aerei e ne inizializzano i missili 
contengono i caratteri grafici definiti 

formano le esplosioni sullo schermo dei missili e degli 
aerei nemici, quando vengono colpiti 

controllano il lancio dei vostri missili 

contengono le istruzioni del gioco 

schermata inziale dopo il carimento da nastro 
controllano la sistemazione dello schermo e della base 
quando i missili non sono ancora finiti 

controllano il disegno del magazzino dei missili nella 
parte bassa dello dello schermo 

controllano le esplosioni dei missili difensivi 

formano le esplosioni nucleari e i funghi atomici (stu- 
pendi! N.d.R.) 

eliminano le tracce dei missili e le città colpite assicu- 
randosi che i nuovi missili non si dirigano su una città 
già distrutta. Queste linee calcolano anche la perdita dei 
missili difensivi quando la base viene colpita 
salvataggio del programma: per salvarlo, battere GO 
TO 9005 


34 LET ad=0: LET yy=0: LET t=0 
° LET rr=0: LET kk=9: SEP E 


t=12: LET nn=0: LET.00=125: 
LET qq=14 


35 LET aj=0: LET jj=6: LET ii= 


0: LET aa=l: LET ceslì: 


LET dd=0: LET ee=l: LET ff 


=l: LET gg=1: LET hh=l:. 
LET bb=0: LET s=0: LET b=0 
° LET p=0 

ST PRINT AT 0,106” 

"> OVER ETRE 95AT O,l 

0;"PUNTEGGIO ";ss 

40 RANDOMI ZE 

50 PLOT 127,0 

60 LET x=16: LET y=10 

61 LET c=20: LET n=20. 

62 PRINT OVER l;AT y,x;"X" 

65 IF yy>=ab THEN LET ii=l 

66 IF b>jj THEN GO TO 2100 

67 LET b=b+1 i 

68 IF b>10 THEN LET b=b-1 

69 IF b>10 THEN RETURN 

70 LET yy=yy+1 

71 LET f(b)=INT (RND*10)-4 
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73 LET d(b)=g((INT (RND*mm))+l 
)-175*(£(b)/5) 

75 LET e(b)=175 

82 LET i(b,1)=d(b): 
=e (b) 

90 IF d(b)<0 OR d(b)>255 
THEN GO TO 71 

95 IF b>1 THEN RETURN 

100 OVER 0 

101 IF b=0 OR mm=0 THEN 
GOTO.:2200 

102 IF RND»ii THEN GO SUB 65 

110 FOR a=l TO b 

115 IF e(a)<5 THEN GO TO 7200 


LET. i(b,2) 


120 PLOT d(a),e(a): DRAW £f(a),- 
4 

130 LET e(a)=e(a)-5: LET d(a)=d 
(a)+£(a) 


131 IF ad=l THEN GO TO 3060 

132 LET k=l1l: IF POINT (d(a),e(a 
)-1)=l AND ATTR ((175-e(a)) 
/8,d4(a)/8)=pp THEN GO TO 8 
000 

135 IF IN 65278<253 OR IN 64510 
+IN 65022+IN 57342+IN 49150 
<1020 THEN GO SUB 1000 

140 NEXT a 

150 IF RND>.9 THEN GO TO 3000 

990 IF IN 65278<253 OR IN 64510 
+IN 65022+IN 57342+IN 49150 
<1020 THEN GO SUB 1000 

992 IF bb=1 THEN RETURN 

995 GO TO 100. 

1000 LET c=x: LET n=y 

1010 LET x=x+(IN 64510=251) 

1020 LET y=y- (IN 57342<255) 

1030 LET. x=x-(IN-.64510=253) 

1035 LET y=y+(IN 49150<255) 

2000 IF x<0 THEN LET x=0 
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2020 IF y<0 THEN LET y=0 

2030 IF y>20 THEN LET y=20 

2040 TF x>31 THEN. LET x=31 

2045 IF c=x AND n=y THEN 

GO. TO 2050 

2046 OVER l: PRINT AT y,x;"X" 

2049 OVER 1: INVERSE 0: PRINT 
AT h,cyp"E"*: INVERSE ‘0% 

i OVER 0 
2050 IF IN 65278<253 THEN 
GO SUB 6000 

2060 RETURN 

2100 LET ii=.8 

2190 GO TO 67 

2200 IF mm<=0 THEN GO TO 2210 

2202 IF yy<=ab THEN GO TO 65 

2209 GO TO 2500 

2210 PRINT AT 5,8;"{SG6}{G3}{G6} 

{SG6}{G3}{G6} {SGl} {SG2} 
{SG4}{2G3}" 

2220 PRINT AT 6,8;"{SG5}{G4} 
{SG3} {SGl1}{SG3}{SG2} {SG5} 
{G3}{G5} {SG4}{G3}{G2}" 

2230 PRINT AT 7,8;"{G6}{SG3} 
{SG6} {SG5} {G5} {SG5} {G5} 

{SG1}{2SG3}" 
2240 PRINT AT 9,8;"{SG6}{G3}{G6} 
{SG5} {G5} {SG4}{2G3} 
{SG4}{G3} {G6}" 

2250 PRINT AT 10,8;"{SG5} {G5} 
{SG5} {G5} {SG4}{G3}{62} 
{SG1}{SG3}{SG6}".. - 

2260 PRINT AT 11,8;"{G6}{SG3} 
{SG6} {G1}{s63}{G2} {SG1} 
{2SG3} {SG5} {G6}" 

2270 FOR a=40 TO 0 STEP -1l: 

i BEEP a*.002,a: NEXT a: 
FOR a=30 TO 69: BEEP .0015 
ra: NEXT a: PAUSE 100 

2280 PAPER l: BORDER l: INK 9: 
BRIGHT l: OVER 0: 

INVERSE 0: CLS 

2282: LET:w=0 

2290 PRINT AT 0, 11; "TABELLONE" 


2292 PRINT AT 3,0;" PUNTI 
NOME mumurm bi " 5 
TAB 14-LEN STR$ c(l); c(1)," 
";c$(1) 
2293 PRINT AT 7,0;" 2 ";TAB 14 


-LEN STR$ c(2)};c(2P7"0":c$( 


2) &*8= 93.1"; PABTÌ8>BEN 
STR (3) ;c(3) 0" "io9t3) 
2294: PLOT 7,154: DRAW 240,0: 


DRAW 0,-64: DRAW -240,0: 
DRAW 0,64: PLOT 7,142: 
DRAW 240,0 


2295 
2300 
2305 
2310 


SID:5 
2316 


| ggio numero 
INPUT 


2317 


2320 
2325 
2330 
2332 
2335 
2340 
2350 
2355 


2360 
2370 


2380 
29385 
2390 
2400 
2409 
2410 
2420 


2421 
2422 


2423 


2424 
2430 


2431 
2438 


PLOT 32,154: DRAW 0,-64: 
PLOT 127,154: DRAW 0,-64 
PRINT AT 12, O;"IL TUO CENE 
GGIO..":AT 12, 185" 
sAT 12,(26-LEN STR$ ss);ss 

IF w>0 THEN GO TO 2370 

FOR a=l TO 3: IF ss>c(a) 
THEN GO TO 2316 

NEXT a: GO TO 2370 

PRINT AT 16,2;"Hai il punte 
alt 

“"Introduci il tuo nom 
e(fino a 14 lettere)....";C 
$(4) 

FOR w=2 TO a STEP -1 

LET c$(w+1)=c$(w) 

LET c(w+t1)=c(w) 

NEXT w 

LET w=2 

LET c(a)=ss 

LET c$(a)=c$(4) 

PRINT AT 16,2;" 


GO TO 2285 

PRINT AT 18,6;"C=Copia del 
tabellone" 

PRINT AT 1b,2; "Scegli fra l1 
e segunti bpzioni" 


PRENT "**" F= Fine del p 
rogramma 
PRINT " vini una nuo 


va partirà. “* 
LET a$=INKEYS: IF a$="" 
THEN GO TO 2400 


IF a$="f" OR a$="F" THEN 
CLS 

IF a$="f" OR a$="F" THEN 
STOP 


IF a$="i" OR a$="I" THEN 
GO TO 2422 
GO TO 2430 
LET xx=5: 
PAPER 5: 
BRIGHT 0: 
INVERSE 0: 
BEEP .5,30 
DIM g(7): LET mm=7: LET vv= 
0: LET g(1l)=28: LET g(2)=60 
° LET g(3)=92: LET g(4)=128 
° LET g(5)=164: LET g(6)=19 
6: LET g(7)=228 
LET ab=28: GO TO 6050 
IF a$="c" OR a$="C" THEN 
GO TO 2438 
GO TO 2370 
COPY : BEEP 
AT DB; 63° 


LET pp=42: INK 0: 
BORDER 5: 
OVER 0: 


FLASH 0: CLS.: 


iS 0 PRINT 


"i GO:TO-=2390 
2500 BORDER 0: PAPER 0: 
° INK 4: INVERSE 0: 
° OVER 0: CLS 
2501 LET y=0: LET n=0 
2502 PRINT AT 17,2;"PUNTI CITTA' 
enim ERI E 
s"PUNTI MISSILI... 3000000. 


2510 PRINT AT-0,10;"PUNTI BONUS 
" 


BRIGHT 1 
FLASH 0 


2511 FOR a=l TO mm: IF g(a)=128 
THEN GO TO 2513 

2512 NEXT a: GO TO 2520 

2513 FOR w=a TO mm-1: LET g(w)=g 


(w+1): NEXT w: LET mm=mm-1 
2520 PRINT AT 3,5;"CITTA' RIMANE 
MNTI" 


2525 PRINT AT 5,7; "NESSUNA" 

2530 FOR a=l TO mm 

2540 PRINT AT 5,4*a-1l;"ABC u 

2542 LET y=y+2000: PRINT AT 17,3 
O-LEN STR$ y;y: BEEP .025,3 
0 

2550 NEXT a 

2560 PRINT AT 8,5; "MISSILI 
NENTI" 

2562 IF t>30 THEN PRINT AT 10,7 
; "NESSUNO" 

2565 LET c=0: LET w=100 

2570-FOR a=l TO (30-t) 

2580 PLOT a*15+10-c,w: DRAW -1,- 


l: DRAW -1,-2: DRAW 0,-5: 
DRAW -2,-2: DRAW 2,-4: 
DRAW 0,-5: DRAW -2,-2: 
DRAW 0,-3: DRAW 6,-2: 
DRAW 0,1 

2585 PLOT a*15+10-c,w: 
° DRAW 1l,-2: 


a 


DRAW 1,-1 
DRAW 0,-5: 


DRAW 2,-2: DRAW -2,-4: 
DRAW 0,-5: DRAW 2,-2: 
DRAW 0,-3: DRAW -6,-2: 
DRAW 0,1 


2586 LET n=n+500: PRINT AT 19,30 
-LEN STR$ n;n: BEEP .025,35 


2588 IF a=15 THEN LET w=70 

2589 IF a=15 THEN LET c=225 

2590 NEXT a 

2600 LET ss=ss+n+y: PRINT AT 21, 
25"NUOVO PUNTEGGIOL 40; + di 
sa RAT: 21: 30+LEN STR$: 85 
; SS 

2605 IF vv=2 THEN GO TO 2700 

2610 IF ss>=100000 THEN GO TO 2 
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2620 


2630 
2640 


2642 


2645 
2650 
2660 


2700 


2704 
2705 
2710 


ups 
2715 


2716 
&T17 


2720 


2730 


2735 
2740 
2750 
2760 
3000 
3001 
3005 


3006 
3010 
3011 
3020 


3UZ5 
3030 
3035 
3040 


3050 
3055 


640. 

IF ss>=50000 THEN GO TO 26 
40 
GO TO 2700 

IF vv=1 AND ss<100000 

THEN GO TO 2700 

LET vv=vv+1l: IF mm>=6 

THEN GO TO 2700 
LET mm=mm+1 

LET g(mm)=ww 

PRINT FLASH l; INK 
9;"BONUS CITTA'ABC" 
FOR a=l TO 50: NEXT a: 


GIAT 1, 


INPUT "Premi ENTER per con 
tinuare..";a$ 

IF xx=6 THEN GO TO 2717 

IF xx=4 THEN GO TO 2715 

LET xx=4: LET pp=34: INK 0: 
PAPER 4: BORDER 4: OVER 0: 
INVERSE 0: BRIGHT 0: 

FLASH 0: CLS 

GO TO 2720 

LET xx=6: LET pp=50: INK 0: 
PAPER 6: BORDER 6: OVER 0: 
INVERSE 0: BRIGHT 0: 

FLASH 0: CLS 

GO TO 2720 

LET xx=5: LET pp=42: INK 0: 
PAPER 5: BORDER 5: OVER Q: 
INVERSE 0: BRIGHT 0: i 
FLASH 0: CLS 


FOR a=l TO mm: LET tt=(g(a) 
+3) /8-2 

LET jj=jj+2: LET ab=ab+l: 
PRINT AT 21,tt;"ABC": 
NEXT a 

LET mm=mm+l1: LET g(mm)=128 
PLOT 0,0: DRAW 255,0 

GO SUB 6213 

GO TO 20 

IF ad=l THEN GO TO 160 
LET ad=l: INK 8 

LET ac=0 


GO TO 132 

LET ac=ac+1l i 

PRINT AT ll,ac; "QRS" 

IF ATTR (ll,ac+2)=pp THEN 
GO TO 5000 

IF RND>.3 THEN GO TO 3050 
IF ac>27 THEN GO TO 3050 
LET ae=16+ac*8: LET af=(ac+ 
2)/4 

IF ae>g(af)-6 AND ae<g(af)+ 
4 THEN GO TO 3100 

PRINT AT ll,ac;" NO" 

GO TO 132 
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5004 


15005 LET ah=d(a): 


5010 


IF ac=29 THEN LET ad=0 
IF ad=1 THEN GO TO 3010 
PRINT AT LIO; 

“AT Vi 
scs magn 
ber "TO: 132 
IF yy>=ab THEN LET ii=l 
LET b=b+1 
IF b>10 THEN LET b=b-1 
IF b>10 THEN GO TO 3050 
LET yy=yy+1l 
LET f(b)=1l 
LET d(b)=g(af)-15.4 
LET e(b)=75: LET i(b,1)=d(b 
)e' LETT, 2)=S0 


PLOT d(b)-1,80: DRAW 1,-5 
GO TO 3050 

FOR a=0 TO 151 

READ b 

POKE USR "A"+a,b 

NEXT a 

GO TO ll 

DATA 6,6,22,30,95,95,127,25 


5,28,28,92,92 125.145: 2593,2 
no 

DATA 0,0,64,96,104,232,250, 
255,761 ,15.115o19g da ta 
DATA 224,224,240,240,240,24 
0,224,224,0,0,0,0,0,0,1,3 
DATA 0,0,0,0,60,255,255,255 
10,70,0,0,0,0,128,192 

DATA 3,1,0,0,0,0,0,0,255,25 
5,255,60,0,0,0,0 

DATA 192,128,0,0,0,0,0,0,60 
r126,255,255,255,255,126,60 


DATA 0,0,24,60,60,24,0,0,19 
2,7244,127,63,121:195otr 18 
DATA 192,224,;240 45,255 ,2% 
0,192,0,60,1285,90,14bx00r%1 
9, 60,195 
DATA _ LEgila4:3etadt#BsWrOyli, 
14,255:#240495,DArid8 224 
DATA 0,0,0,192,240,0,0,0 
LET ai=83: LET ah=ac*8+20 
PRENT AT 11,03" 
Sa RT Ver 
; 3 fit pis 
LET aj=l1 
LET ss=ss+3000: 
ox" 
OVER ll; 


PRINT AT 0, 
Wo, 


LA 
INK 9;AT 0,10;"PUN 


TEGGIO ";ss 


GO TO 5010 
LET ai=e(a) 
IF ai-10>174 OR ah-10<0 


OR ah+10>255 THEN GO TO 5 
013 

GO TO 5014 
BEEP .025,20: 
LET ak=0. 
LET ak=ak+1 
FOR w=1 TO 5 STEP 2 
PLOT ah-w,ai-w: DRAW 
PLOT ah-w*2,ai: DRAW 
PLOT ah+w,ai-w: DRAW 
PLOT ah+w*2,ai: DRAW 
ah+w,ai+w: DRAW 
ah,ai+w*2: DRAW 
ah-w,ai+w: DRAW 
ah ,ai-w*2: DRAW 


GO TO 5190 


HPPPPWEWEYEW 


“ ‘<= @ Ss a fs © 


o.0Oo O e. o 0:60. 


INVERSE 1 
BEEP .025,20 
GO TO 5015 


THEN 
THEN 
THEN 
INVERSE 0 
IF aj=1 THEN LET ad=0 
IF aj<>1 THEN GO TO 8002 


LET aj=0 
GO TO 100 
IF t>=30 THEN GO TO 7069 
OVER 1 
LET o=x*8-112-kk: LET r=170 
-y*8-11 
PLOT 00,qg: 
PLOT 00,qga: 
OVER 0 
INVERSE ll: 
DRAW 2,0: 
DRAW 0,5 
IF nn=0 THEN LET ll=11-4 
IF nn=0 THEN LET kk=kk+21- 
kl*tdo5 
IF nn=0 THEN LET nn=24-11* 
K.5 
LET kk=kk-6 
LET nn=ann-6 
LET 0o=kk+116: LET qq=11+2 
IF t<29 AND 11<0 AND kk=21 
THEN GO SUB 6214 
INVERSE 0: GO TO 7000 
INK 0: PAPER 5: BORDER 5: 
BRIGHT 0: OVER 0: 
INVERSE 0: CLS : PRINT 
AT 10,4;"Vuoi le istruzioni 
?": FOR w=1 TO 50: NEXT w 
LET b$=INKEYS: IF b$="" 
THEN GO TO 6051 
IF b$="s" OR b$="S" THEN 
GO TO 6054 
GO TO 6198 


DRAW o,r 
DRAW o,r 


PLOT 00-1,qq: 
PLOT 00,Qg: 


6054 


6055 


6056 


6057 


6058 


6059 


6060 


6061 


6062 


6063 


CLS i “PRINT AT. 0.7/f "LA MISS 
IONE" 

PRINT '"Sei a capo di una b 
ase di missili Terra- 
Aria durante una guerra nu 
cleare.." 

PRINT '"Il tuo ‘compito e'*.:q 
uello di difendere 5 ci 
tta' e la tua base miss 


ilistica dai missili atom 
ici nemici.." 

PRINT '"Hai a disposizione 
30 missili Terra-aria ,10 
dei quali sempre presenti 
sulla base di lancio; se 1 

a base viene colpita , 
vengono distrutti tutti i 
missili presenti.." 
PRINT '"Piu' a lungo resist 
è. agli attacchi dei m 
issili nemici,piu'gente pot 
ra' essere evacuata dall 
e citta. 
FOR w=1 TO 500: NEXT w: 
PRINT #1;AT 1,2;"PREMI UN 
TASTO PER CONTINUARE": 
PAUSE 0 
CLS : PRINT AT 0,6; "DETTAGL 
I SFRCNICI" 
PRINT '"I missili Terra-Ari 
a sono guidati muoven 
do il mirino lab iti 
per colpire un missile at 
omico o un aereo nemico puo 
i muovere il mirino ""x"" 
in 8 direzioni." 
PAPER 6: FOR w=9 TO 21: 
PRINT AT w,0;" 
mt, 
NEXT: wr:\PRINT AT (12/0; " 
{2SG3} {2SG3} {2SG3} {2SG3} 
{2SG3} {2SG3} {2SG3} 
{2SG3} {2SG3} {25SG3}" 
PRINT INVERSE l;"l {SG8}2 
{SG8}3 {SG8}4 {SG8}5 {SG8}6 
{SG8}7 {SG8}8 {SG8}9 {SG8} 
0 " 
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6064 


6065 


6066 


6067 


6068 


6069 


6070 


6071 


6072 


6073 


6074 


6075 


INVERSE l'"{SG8}0 
INK l;"W {SG8}"; 
PAPER 0;"E "; 

PAPER 6; INK 0;"{SG8}R 

{SG8}T "; INK 2;"{SG8}yY 

{SG8}U {SG8}I {SG8}0 {SG8}P 
" 


PRINT 
{SG8}"; 
TNK 5; 


{0335 "> IRK'1:" 
(2G31 “+ WE 5:"{2603}*; 

INK Co" (203) 1203)"; 

INK 2:"{2G3} {2ZG3}646G3} 
{263} {2G3}" 

PRINT " {2SG3} {2SG3} 
{25G3} {25SG3} {2863} "» 

INK 3;"{2SG3} {2SG3} 
{2SG3} {2SG3} {2SG3}{SG7}" 
PRINT INVERSE 1l;"{2SG8}A 
{SG8}S {SG8}D {SG8}F {SG8}G 

"; INK 3;"{SG8}H {SG8}3 
{SG8}K {SG8}L {SG8} {G5}" 
PRINT INVERSE l'!" {SG8}Z 

"- INK 4;"{SG8}x {SG8}C 
{SG8}v "; INK 0;"{SG8}B 
{SG8}N {SG8}M {SG8} {SG8} 

{G5}" 
PRINT "{3G3} {2G3} "; INK 4 


s£2G3}-{2G3} {2G3}"» INK 0 
s" €263} {2G3} {2G3} {2G3} 
{3G3}{G2}" 

INK 8: PLOT 0,0: DRAW 255,0 
° DRAW 0,104: DRAW -255,0: 
DRAW 0,-104: PLOT 0,78: 
DRAW 255,0 

PRINT OVER l;AT 9,0; "SCHEM 
A TASTIERA E USO DEI TASTI" 


PRINT *" 


PRINT INK l; INVERSE ]l; 

AT ll,l1;"SINISTRA{SG8}": 
INK 5; PAPER 0; "DESTRA"; 
PAPER 6;"{SG8}":;: INK 2;"SU 
{SG8}": INK 3;"GIU'{SG8}"- 
INK 4;"FUOCO{SG8}" 

FOR w=1 TO 500: NEXT w: 
PRINT #1;AT 1,2;"PREMI UN 

TASTO PER CONTINUARE": 
PAUSE 0 


PAPER 5: CLS * PRINT AT 0,1 
2;"PUNTEGGI" 
PRINT '"Per ogni missile co 


lpito ricevi 1000 punti. Pe 
r ogni citta' e ogni miss 
ile rimasto intatto al term 
ine di ogni schieramento 

ssi guadagnano dei punti bo 
nus, dopo 50000 e 100000 p 
unti riceverai delle 
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6076 
6078 


6080 


6081 
6082 


6083 


6084 
6085 
6086 
6087 


6088 


6089 


6090 


6091 
6092 


6093 


6094 


altre citta! da.salvare..." 
PRINT '"BUONA FORTUNA!" 

FOR w=1 TO 500: NEXT w: 
PRINT ''" PREMI UN TASTO P 
ER CONTINUARE..": PAUSE 0: 
GO TO 6198 

PRINT AT 3,14;"{SG3}{SG8} 
{SG3}":AT 4,12;"{SG3}{5SG8} 
1SG3}:":AT: 5,11Ls"{G5}17568} 
{SG5}" 

PRINT AT 6,11;"{9SG8}";AT 7 
r105"{G5}{95G8}{SG5}"-AT 8, 
11;"{9SG8}" 

PRINT AT 9,11;"{G5}{7SG8} 
{SG5}":AT 10,;12:"{G3}{5s08} 
{G3}";} AP 1L,14;"{36683" 
PRINT AT 12,13;"{G4}{3SG8} 
{SG7}":AT 13,11;"{G4}{2G6} 
{3SG8}{2SG6}{SG7}";AT 14,12 
s{26G21{385G84 4#2G1L}" 

PRINT AT 15,13;"{G4}{3SG8} 
{SG7}":AT 16,12:"{5G4} 
{G2}{3G8}{G1}{G7}":;AT 17, 
8;"{G4}{SG3}{SG2}{95SG8} 
{SG1}{SG3}{SG7}" 
PRINT AT 18,7;"{17G3}" 
PLOT 0,0: DRAW 255,0: 

DRAW 0,175: DRAW -255,0: 
DRAW 0,-175 
PLOT 4,4: DRAW 247,0: 

DRAW 0,167: DRAW -247,0: 
DRAW 0,-167 
PLOT 8,8: DRAW 239,0: 

DRAW 0,159: DRAW -239,0: 
DRAW 0,-159 


PRINT FLASH 1; INK 2;AT 19 
r5;"FERMA IL REGISTRATORE" 
PRINT INK 4; INVERSE ll; 

AT 6,12;"NUCLEAR";AT 7,12;" 


‘ ATTACK." 


FOR a=44 TO 208 STEP 159 
PLOT a,150: DRAW -5,-9,PI/ 
2: DRAW 0,-40: DRAW -10,-10 
? DRAW 5,-5: DRAW 5,-10: 
DRAW 0,-20: DRAW -10,-10: 
DRAW 0,-10: DRAW 10,-5 
PLOT a,150: DRAW 5,-9,-PI/ 
2: DRAW 0,-40: DRAW 10,-10: 
DRAW -5,-5: DRAW -5,-10: 
DRAW 0,-20: DRAW 10,-10: 
DRAW 0,-10: DRAW -10,-5: 

, DRAW 0,2: DRAW -10,0: 

DRAW 0,-2 
PLOT a,l0l: 
PLOT a,56: 


DRAW 0,-25: 
DRAW 0,-25 


6095 
6096 


6097 


6098 


6099 


6100 
6101 


6102 


6103 
6108 


6110 


6120 
6130 


6140 


6198 


6199 


6200 


REM 
INK 5: 
su 32 
DRAW 0,2: 
DRAW -1,0: 
DRAW 0,3: 
r-l1: DRAW 0,-3: 
DRAW -1,0 

PLOT a-2,122: DRAW 0,4: 
DRAW 2,-4: DRAW 0,4: 
PLOT a,120: DRAW -1,0: 
DRAW -1,-1: DRAW 0,-2: 
DRAW l1,-1: DRAW 1,0: 
DRAW 0,2 


PLOT a,l1l4: 
DRAW 0,-2: 
DRAW -2,0: 
DRAW 2,0: 
DRAW 0,4: 
s-l1: DRAW -l1l,-l: 
DRAW 0,-1 

INK 7: PLOT a-4,144: DRAW 8 
10: PLOT a-4,142: DRAW 8,0 
PRINT AT 13,INT (a/8);"P" 
PLOT a-4,61: DRAW 1,0: 
DRAW l1,-1: DRAW 1,0: 

DRAW 1,1: DRAW 1,0: DRAW l 
r-l1: DRAW 1,0: DRAW 1,1: 
DRAW 1,0 
PLOT a-4,59: 
DRAW l,-1l: 
DRAW 1,1: 
e-1: DRAW 1,0: 
DRAW 1,0 
NEXT a 
PRINT #1;AT 1,3;"PREMI UN T 
ASTO PER INIZIARE" 
FOR w=50 TO 35 STEP -l: 

IF INKEY$="" THEN GO TO 6 
130 i 
FOR w=1 TO 10: RUN 


BEEP .015,w: BEEP .025,RND* 
100-35: BEEP .025,RND*50-25 
: BEEP .025,RND*20-10: 
NEXT w 
FOR w=1 TO 10: NEXT w: 
PAUSE 0: RUN 
RT ‘sk=l: CLS -: PRINP AT 10 
r85"""NUCLEAR ATTACK""*” 
LET: as®-Lr PRINT ‘PaB 37 "pr 
emi un tasto per iniziare"; 
° FOR w=-1 TO 12: BEEP .025 
sRND*100-40: BEEP .025,w*5: 
NEXT w: PAUSE 0: CLS 
FOR z=2 TO 12 STEP 4 


PLOT a-2,137: DRAW 0 


DRAW 1,0: DRAW 1,1: 
DRAW (--Ll,1:°.. 
PLOT a-2,£26: 
DRAW 1,1: DRAW 1 
DRAW 0,2: 


DRAW -2,0: 

DRAW 2,0:: 

DRAW 0,-2: 

PLOT a-2,104: 
DRAW 1,0: DRAW 1 
DRAW l,-1: 


DRAW 1,0: 

DRAW 1,0: 

DRAW 1,0: DRAW 1 
DRAW l,l: 


PRINT AT 21,z; "ABC" 
PRINT AT 21,z+17; "ABC" 
NEXT Z pae. 
LET ak=l1: 
INVERSE 0: 
FOR a=0 TO 3 

FOR z=a+wwww TO wwww+3 


GO TO 6320 
LET wwww=0 


OVER l: PLOT 115+(z*6),2+(a 
*4): DRAW 2,0: PLOT 116+(z* 
6) ,2+(a*4): DRAW 0,5 

NEXT Z 

LET wwww=Wwwww-.5 

NEXT a: OVER 0 

IF ak=1 THEN GO TO 6229 

IF t>=19 THEN GO TO 6225 
POKE 23280,63: POKE 23281,6 
3% POKE 23282,63 

GO TO 6229 

POKE 23276,63: POKE 23277,6 
3: POKE 23228,63 


LET ak=0 
PLOT 0,0: DRAW 255,0 
LET kk=9: LET ll=12: LET nn 


=0: LET 00=125: LET qq=14 
IF ss=-1 THEN GO TO 20 
RETURN 

GO TO 7000 

RESTORE 6430 

PLOT 0,0: DRAW 255,0 

FOR a=20687 TO 22223 STEP 2 


NEXT a 
POKE 22479,126 
FOR a=20719 TO 22299 STEP 2 


NEXT a 
DATA 255,231/23Lb,20b/23Fs19 
Sull'29 

FOR a=20716 TO 22296 STEP 2 
56 

READ b,c,d 

POKE a,b: POKE a+l,c: 

POKE a+2,d: POKE a+4,b: 
POKE a+5,c: POKE a+6,d 
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‘6470 
6480 


6490 


6500 
6510 
6515 
6520 
6530 
6540 
6900 
7000 
7001 


7005 
7010 
7022 
7025 
7030 
7031 
7032 
7039 
7038 
7040 
7045 
7050 
7058 
7060 
7062 
7065 


7066 
7067 
7068 
7069 
7070 
7071 
7072 
7075 


7080 
7081 
7082 
7083 
7084 
7085 
7088 
7090 
7095 
7096 
7097 
7098 
7099 


NEXT a 
DATA 132,33,8,115,156,231,1 


32:7:33.,8 


DATA 0,0,0,132,33,8,115,156 
1231, LI4-+3094:9 


POKE 23247,8*xx+7 

POKE 23279,8*xx+7 

FOR a=0 TO 6 

POKE 23276+a,56 

IF a=2 THEN LET a=3 

NEXT a 

GO TO 6214 

IF t>=30 THEN GO TO 7069 
LET s=s+1: LET t=t+1: LET Mm 
(S)=y: LET q(s)=x 
LET bb=1 

INK 2: OVER 1 

FOR w=aa TO s 
PRINT AT m(w),q(Ww) 
NEXT w 

LET aa=aa+(w-aa) 
BEEP .01,35 

FOR w=cc TO S 
PRINT AT m(w),q(w);"M" 
PRINT AT m(w),q(w); a 

NEXT w 

BEEP .01,35 

LET cc=cc+(w-cc) 

FOR w=ee TO s 

PRINT AT m(w),q(w);"L". 
PRINT AT pini "D 
{SG8}E";AT m(w)-1 sa(w)-1; "F 
GH";AT m(w)+1,q(w)-l;"IJK"O 
NEXT w 


; ° 


BEEP .01,35 
LET ee=ee+(w-ee) 
INK 8: OVER 0: GO SUB 100 


INK 2: OVER 1 

FOR w=£f£f TO s 

PRINT AT m(w),q(w);"L" 
PRINT AT m(w),q(w)-l;"D 
{SG8}E";AT m(w)-l,q(w)-1;"F 
6GH"; AT m(w)+1,q(w)-l; "IJK"_ 
NEXT w 

LET ££=ff+(w-ff£) 

IF s=30 THEN GO TO 7084 
INK 8: OVER 0: GO SUB 100 
INK 2: OVER 1 

FOR w=gg TO Ss 

PRINT AT m(w),q(w);"L" 
PRINT AT m(w),q(Ww); "M" 
NEXT w 

LET gg=gg+(w-gg) 

IF s=30 THEN GO TO 7099 
INK 8: OVER 0: GO SUB 100 
INK 0: OVER 0 


30 - SUPERSINC® 2/84 


7100 
7105 


7106 
7107 
7109 
TIRO 
7120 
7130 


TL 3a 


7140 
7150 


7200 
7210 
7220 


7230 
1235 
7240 
7250 


7260 


7268: 


7270 


1213 


7280 


7285 


7286 


1281 


7288 


FOR w=hh TO Ss 

PRINT AT m(w),q(w)-l1;" iù 
AT m(w)-l1,q(w)-1;" % 

IF m(w)>=20 THEN GO TO 710 
8 


PRINT AT m(w)+1,q(w)-1;" 


fe 0:10 ZO 

PRINT OVER l;AT m(w)+l,q(w 
Hekg " 

NEXT w 

LET hh=hh+(w-hh) 

PRINT INK 0; OVER 0;AT y,x 
- Big Lal 

PRINT AT 0,105" 

3 e OVER 1 SK: 

AT 0; 10; "PUNTEGGIO ";ss 

LET bbe 0 

INK 0: INVERSE 0: OVER 0: 
GO TO 100 

LET dd=l: OVER 0 


FOR w=1 TO mm 

IF d(a)<g(w)+8 AND d(a)>g(w 
)-8 THEN GO TO 7231 

NEXT w: GO TO 7996 

LET ZZ=Ww 

LET tt=(d(a)+3)/8-2 


PRINT AT 19,tt#iy RP 20, 
i di 8 PERT 21 ;ttr " 

LET uu=g(w) 

PLOT 0,0: DRAW 255,0 

PLOT uu-4,1: DRAW 7,0: 

PLOT uu-2,2: DRAW 3,0 
PLOT uu-5,2: DRAW 9,0: 


PLOT uu-7,1: DRAW 13,0: 
PLOT uu-2,3: DRAW 3,0 
PLOT uu-4,3: DRAW 7,0: 
PLOT uu-6,2: DRAW 11,0: 
PLOT uu-2,4: DRAW 3,0: 
PLOT uu-9,1: DRAW 17,0: 
PLOT ::uu-1,5: PLOT uu, 5 
PLOT uu-5,4: DRAW 9,0: 
PLOT uu-6,3: DRAW 11,0: 
PLOT uu-4,5: DRAW 7,0: 
PLOT uu-8,2: DRAW 15,0: 
PLOT uu-3,6: DRAW 5,0: 
PLOT uu-ll,l: DRAW-21,0: 
PLOT uu-1,7: PLOT uu,7 
OVER l: INK 8: PAPER 7: 
BRIGHT l: PRINT AT 21l,tt- PE 
PALI " 
ld 
PRINT AT _.20,tt-2;" ai 
AT :19,tt..1;" ef << Bi tt 
sot " :AT 17, ttela " " 
BRIGHT 0: OVER 1: INK 8: 
PAPER xx: PRINT AT .ddil,tt-1 
n" 


a 
LA 


7290 


7292 
7294 


7295 


7300 


7305 


7310 


F315 


7320 


1325 


7330 


1335 


PRINT AT 20,tt-2;" n, 
AT ‘19,tt-1;" “";AT 18,tt 
tai MERI: TE. ttady © 


OVER_.0 

PLOT uu-7,5: DRAW 13,0: 
PLOT uu-7,6: DRAW 13,0: 
PLOT uu-8,4: DRAW 15,0: 
PLOT uu-6,7: DRAW 11,0: 
PLOT uu-8,3: DRAW 15,0 
PLOT uu-5,8: DRAW 9,0: 
PLOT uu-9,2: DRAW 17,0: 
PLOT uu-3,9: DRAW 5,0: 
PLOT uu-13,1: DRAW 25,0: 
PLOT: unued,10.:; PLOT uu,10 


PLOT uu-8,7: DRAW 1,0: 
PLOT uu+6,7: DRAW 1,0: 
PLOT uu-9,6: DRAW 1,0: 
PLOT uu+7,6: DRAW 1,0: 
PLOT uu-8,8: DRAW 2,0: 
PLOT uu+5,8: DRAW 2,0 


PLOT uu-9,5: DRAW 1,0: 
PLOT uu+7,5: DRAW 1,0: 
PLOT uu-7,9: DRAW 13,0: 
PLOT uu-7,10: DRAW 13,0: 
PLOT uu-6,11: DRAW 11,0: 
PLOT uu-11,2: DRAW 1,0 

PLOT uu+8,2: DRAW 1,0: 
PLOT uu-4,12: DRAW 7,0 
PLOT uu-15,1: DRAW 1,0 
PLOT uu+13,1: DRAW ) 


PLOT uu-2,13: DRAW 3, 


PLOT uu-10,8: DRAW 1,0 
PLOT uu+8,8: DRAW 1,0 
PLOT uu-9,9: DRAW 1,0: 
PLOT uu+7,9: DRAW 1,0: 
PLOT uu-10,7: DRAW 1,0: 
PLOT uu+8,7: DRAW 1,0: 
PLOT uu-9,10: DRAW 1,0: 
PLOT uu+7,10: DRAW 1,0 
PLOT uu-8,11: DRAW 1,0: 
PLOT uu+6,11: DRAW 1,0: 
PLOT uu-8,12: DRAW 15,0: 
PLOT uu-7,13: DRAW 13,0 
PLOT uu-10,3: DRAW 1,0: 
PLOT uu+7,3: DRAW 1,0: 
PLOT uu-5,14: DRAW 9,0: 
PLOT uu-14,2: DRAW 2,0: 
PLOT uu+10,2: DRAW 2,0 
PLOT uu-3,15: DRAW 5,0: 
PLOT uu-1,16: PLOT uu,l6: 
PLOT uu-17,1: DRAW 1,0: 
PLOT uu+14,1: DRAW 1,0 
INVERSE l: PLOT uu-10,8: 
DRAW 0,-1: DRAW 1,0: 
DRAW 0,-2: DRAW 1,0: 


DRAW 0,-1: DRAW 2,0: 
PLOT uu+9,8: DRAW 0,-1: 


DRAW -1,0: DRAW 0,-2: 
DRAW -1,0: DRAW 0,-1: 
DRAW -2,0 

7340 INVERSE 0: PLOT uu-10,10: 
DRAW 0,1: DRAW 1,0: DRAW 0 
12: DRAW 1,0: DRAW 0,1: 
DRAW 2,0: PLOT uu+t9,10: 
DRAW 0,1:: DRAW -1,0: 
DRAW 0,2: DRAW -1,0: 


DRAW 0,1: DRAW -2,0 
7345 PLOT uu-8,15: DRAW 15,0: 
PLOT uu-7,16: DRAW 13,0: 
PLOT uu-5,17: DRAW 9,0: 
PLOT uu-3,18: DRAW 5,0: 
PLOT uu-1,19: PLOT uu,l19 
INVERSE l: PLOT uu-10,11l: 
DRAW 0,-1: DRAW 1,0: 
DRAW 0,-2: DRAW 1,0: 
DRAW 0,-1: DRAW 2,0: 
PLOT uu+9,11: DRAW 0,-1:: 
DRAW -1,0: DRAW 0,-2: 
DRAW -1,0: DRAW 0,-1l: 
DRAW -2,0 
7352 PLOT uu-8,6: DRAW 2,0: 
PLOT uu+4,6: DRAW 3,0 
7355 INVERSE 0: PLOT uu-10,13: 
DRAW 0,1: DRAW 1,0: DRAW 0 
#2: DRAW 1,0: DRAW 0,1: 


7350 


DRAW 2,0: PLOT uu+9,13: 
DRAW 0,1:: DRAW -1,0: 
DRAW 0,2: DRAW -1,0: 
DRAW 0.1: DRAW -2.0 
DRAW 2,0: PLOT uu+9,22: 
DRAW 0,1:: DRAW -1,0: 
DRAW 0,2: DRAW -1,0: 
DRAW 0,1: DRAW -2,0 


7360 PLOT uu-8,18: DRAW 15,0: 
PLOT uu-7,19: DRAW 13,0 

7365 PLOT uu-5,20: DRAW 9,0: 
PLOT uu-3,21: DRAW 5,0: 
PLOT uu-1,22:- PLOT uu,22: 
PLOT uu-6,4: PLOT uu+5,4 

7370 INVERSE 1: PLOT uu-10,14: 
DRAW 0,-1: DRAW 1,0: 
DRAW 0,-2: DRAW 1,0: 
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T9Ts 


7380 


7385 


7390 


7392 


dz 


7400 


7402 


7405 


7410 


7415 


7420 


DRAW 0,-1: DRAW 2,0: 


PLOT uu+9,14: DRAW 0,-1:: 
DRAW -1,0: DRAW 0,-2: 
DRAW -1,0: DRAW 0,-1: 
DRAW -2,0 


INVERSE 0: PLOT uu-10,16: 
DRAW 0,1: DRAW 1,0: DRAW 0 
#2: DRAW 1,0: DRAW 0,1: 
DRAW 2,0: PLOT uu+9,16: 
DRAW 0,1:: DRAW -1,0: 
DRAW 0,2: DRAW -1,0: 
DRAW 0,1: DRAW -2,0 

PLOT uu-8,21: DRAW 15,0: 
PLOT uu-7,22: DRAW 13,0 
PLOT uu-5,23: DRAW 9,0: 
PLOT uu-3,24: DRAW 5,0: 
PLOT uu-1,25: PLOT uu,25: 
PLOT uu-6,6: DRAW 0,-1: 
PLOT uu+5,6: DRAW -1,0 
INVERSE l: PLOT uu-10,17: 
DRAW 0,-1: DRAW 1,0: 

DRAW 0,-2: DRAW 1,0: 

DRAW 0,-1: DRAW 2,0: 


PLOT uu+9,17: DRAW 0,-1:: 
DRAW -1,0: DRAW 0,-2: 
. DRAW -1,0: DRAW 0,-1: 
DRAW -2,0 


PLOT uu-8,12: DRAW 3,0: 
PLOT uu+4,12: DRAW 3,0 
INVERSE 0: PLOT uu-10,19: 
DRAW 0,1: DRAW 1,0: DRAW 0 
»2: DRAW 1,0: DRAW.0,1: 
DRAW 2,0: PLOT uu+t9,19: 
DRAW 0,1:: DRAW -1,0: 
DRAW 0,2: DRAW -1,0: 
DRAW 0,1: DRAW -2,0 
PLOT uu-8,24: DRAW 15,0: 
PLOT uu-7,25: DRAW 13,0 
PLOT uu-8,10: DRAW 3,0: 
PLOT uu+4,10: DRAW 4,0 
PLOT uu-5,26: DRAW 9,0: 
PLOT uu-3,27: DRAW 5,0: 
PLOT uu-1, 28: PLOT uu, 28: 
INVERSE l: PLOT uu-7,5: 
DRAW 1,0: DRAW 0,1: PLOT u 
u+6,5: DRAW -1,0: DRAW 0,1 
PLOT uu-5,7: DRAW 0,-2: 
PLOT uu+4,7: DRAW 0,-2 
PLOT uu-10,20: DRAW 0,-1: 
DRAW 1,0: DRAW 0,-2: 
DRAW 1,0: DRAW 0,-1l: 
DRAW 2,0: PLOT uu+9,20: 
DRAW 0,-1:: DRAW -1,0: 
DRAW 0,-2: DRAW -1,0: 
DRAW 0,-1: DRAW -2,0 
INVERSE 0: PLOT uu-10,22:: 
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7425 


7430 


7435 


7440 
7450 


7460 


7470 


7480 
7490 


7500 


7510 


7520 


7530 
7540 


DRAW 0;1: DRAW 1,0: DRAW 0 
+2: DRAW.1,0: DRAW 0,1: 
PLOT uu-8,27: DRAW 15,0: 
PLOT uu-7,28: DRAW 13,0 
PLOT  uu-5,29: DRAW 9,0: 
PLOT uu-3,30: DRAW 5,0: 
PLOT uu-1,28: PLOT uu,3l: 
INVERSE l: PLOT uu-8,15: 
DRAW 4,0: PLOT uu+3,15: 
DRAW 4,0: PLOT uu-7,14: 
DRAW 3,0: PLOT uu+t3,14: 
DRAW 3,0 
PLOT uu+8,10: PLOT uu-4,7: 
DRAW 0,1: DRAW -3,0: 

DRAW -1,1: DRAW l,l: 

DRAW 1,-1: DRAW l,l: 

DRAW l1,-1: PLOT uu+3,7: 
DRAW 0,1: DRAW 3,0: DRAW 1 
srl: DRAW -l1,1: DRAW -1,-1: 
DRAW -l1,1: DRAW -1,-1l: 
PLOT uu-6,11: DRAW 2,2: 
PLOT uu+5,l1l: DRAW -2,2 


PLOT uu-4,11: PLOT uu+3,11 
INVERSE l: PLOT uu-3,13: 
DRAW 0,1: DRAW 1,0: DRAW 1 
s-1: DRAW -2,-2: PLOT uu,13 
è DRAW 1,1: DRAW 1,0: 

DRAW -5,-5 


PLOT uu-4,6: DRAW 6,6: 
PLOT uu-4,4: DRAW 6,6: 
PLOT uu-2,4: DRAW 4,4: 
PLOT uu,4: DRAW 2,2 
PLOT uu+2,4: DRAW 1,1: 
PLOT uu+4,4: DRAW 1,0: 
PLOT uu-6,4: PLOT uu-10,3: 
DRAW 19,0 
FOR w=0 TO 3 
IF w=1 THEN GO TO 7550 
PLOT uu-10,26-w: DRAW 9,9: 
DRAW 10,-10: PLOT uu-10,22 
-w: DRAW 9,9: DRAW 10,-10: 
DRAW -4,-4: PLOT uu-8,20-w 
° DRAW 7,7: DRAW 8,-8 
PLOT uu-7,17-w: DRAW 6,6: 
DRAW 5,-5: PLOT uu-4,16-w: 


DRAW 3,3: DRAW 3,-3: 
PLOT uu-8,22-w: DRAW 7,-7:. 
DRAW 9,9 

PLOT uu-8,26-w: DRAW 7,-7: 
DRAW 7,7: PLOT uu-6,28-w: 
DRAW 5,-5: DRAW 5,5: 

: PLOT uu-4,30-w: DRAW 3,-3: 
DRAW 3,3 

NEXT w 

INVERSE 0: GO TO 7980 


7550 PLOT uu-14,2: DRAW 27,0 

7560 PLOT uu-2,13: DRAW 4,0: 
PLOT uu-3,8: DRAW 4,0: 
DRAW 1,-1: DRAW -4,0: 
DRAW -1,-1: DRAW 6,0: 
DRAW -1,-1: DRAW -6,0: 
DRAW -1,-1: DRAN 8,0 

PLOT uu-17,1: DRAW 33,0 

PLOT uu-5,13: DRAW l,-1l: 
DRAW 7,0: DRAW 1,1: PLOT u 

u-7,11: DRAW 13,0: DRAW l,- 
l: DRAW -15,0: DRAW 1,-1: 
DRAW 13,0 

GO TO 7500 


IF g(zz)=128 THEN LET t=30 
-(INT (2.9-t/10))*10' 


7600 
7610 


7986 IF g(zz)=128 AND t<30 
THEN LET rr=l 
7987 IF g(zz)=128 AND t<30 
THEN GO TO 8002 
7989 IF g(zz)<>128 THEN LET w 
w=g (W) 
7990 FOR w=zz TO mm-l1: LET g(w)= 
g(w+1): NEXT w: LET mm=mm- l 
7996 PLOT 0,0: DRAW 255,0 
7999 GO TO 8002 
8000 LET ss=ss+1000 
8001 GO TO 5005 
8002 OVER 0: INVERSE l: PLOT i(a 


rl) ,i(a,2): DRAW d(a)-i(a,l 
) ,e(a)-i(a,2) 


8010 PLOT: i(a,1)+(i(a,1)<255) .i( 
a,2)-(i(a,1)=255): DRAW d(a 
)-i(a,l) ,e(a)-i(a,2) 

8020 PLOT i(a,l)-(i(a,l1)>0),i(a, 
2)-(i(a,1)=0): DRAW d(a)-i( 
a,l) ,e(a)-i(a,2): INVERSE 0 

8030 PRINT AT 0,10;" 

me OVER 1; INK SAT 0,1 
0;"PUNTEGGIO ";ss 

8035 IF dd=l1 THEN PRINT AT y,X; 
vara s 

8038 LET dd=0 

8040 FOR w=a TO b 

8045 LET h=w+1 

8050 LET e(w)=e(h) 

8053 LET d(w)=d(h) 

8056 LET £(w)=f(h) 

8058 LET i(w,1)=i(h,l1) 

8059 LET i(w,2)=i(h,2) 

8060 NEXT w 

8070 LET b=b-1 

8080 IF rr=1 THEN GO SUB 6214 

8090 LET rr=0 

8200 GO TO 100 

9000 STOP 

9005 CLEAR 

9010 SAVE "missile" LINE 10 

9999 STOP 


Per ricevere la cassetta contenente 
i programmi del numero 1 di SUPERSINC, 
compilate e spedite il coupon qui sotto! 


SUPERSINC 


CEDOLA DI ORDINAZIONE - cassetta 
da compilare e spedire in busta chiusa a 
TechnoClub - Via Rosellini, 12 - 20124 Milano Tel. 6888228 


VOGNBISAASISntin® cuccia cassette 


contenenti i programmi pubblicati sul 1° numero SUPERSINC al prezzo speciale di 


L. 15.000 + 2.000 x spese di spedizione cadauna 


O Contanti allegati Li Assegno: sllagRio n°... ria 


O Ho spedito l’importo a mezzo vaglia postale 


O Ho versato l’importo sul ccp. n° 19445204 intestato a Technoclub - Milano 


Pagherò in contrassegno al postino al ricevimento della cassetta (valido solo 
per i soci in Italia) 


buono d’ordine per la cassetta contentente i programmi pub- 
blicati sul 1° numero di SUPERSINC 


Se richiesta fattura: 


Cobain 


Per i soci residenti all’estero — pagamento anticipato (vaglia o versamento su ns. 
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di Patrick Garfield 
trad. e adatt. di 
Lucio Bragagnolo 


Siete davvero in forma? Verificate 
i vostri bioritmi con l’aiuto di que- 
sto programma 


Lî capacità di plottaggio in alta riso- 
luzione dello Spectrum sono qui 
utilizzate per consentirvi di rappresen- 
tare i vostri bioritmi - i cicli biologici 
che secondo diversi studiosi determi- 
nano il nostro stato di forma fisica, 
emotiva ed intellettuale. Avendo una 
stampante, potrete ottenere anche 
l'hard copy delle varie opzioni previste 
dal programma, magari facendovi pa- 
gare dagli amici... 

Può darsi che la teoria dei bioritmi sia 
già familiare a molti di voi, tuttavia 
penso che un minimo di informazione 
a questo proposito non guasti. 

Verso l’inizio del secolo un dottore te- 
desco di nome Wilhelm Fleiss e uno 
psicologo australiano (Herman Swobo- 
da) scoprirono indipendentemente nel- 
lo stesso periodo che certi problemi fi- 
sici ed emotivi da loro osservati nei ri- 
spettivi pazienti sembravano manife- 
starsi con regolarità ciclica. Dopo ave- 
re condotto ricerche su un numero 
molto ampio di soggetti, conclusero 
che il potenziale fisico ed emotivo di 
ciascuno di essi variava secondo cicli 
della durata di 23 e 28 giorni, a partire 
dalla data di nascita. 


Sviluppi e conferme 

Nel 1920 le teorie dei due studiosi fu- 
rono riprese dal dottor Alfred Telscher 
che, esaminando nel tempo il rendi- 


mento dei suoi studenti, notò nelle va- 


riazioni una periodicità di 33 giorni. 
Poco dopo questa scoperta la teoria 
dei bioritmi venne utilizzata in Germa- 
nia e in Giappone per sviluppare pro- 
grammi di prevenzione degli incidenti. 
Fuori da queste applicazioni, però, i 
bioritmi rimasero virtualmente inuti- 
lizzati fino al 1970, quando la loro esi- 
stenza fu confermata da ulteriori studi. 
La procedura di calcolo dei bioritmi 
non è molto difficile: tutto ciò di cui 
abbiamo bisogno è conoscere il nume- 
ro dei giorni trascorsi dalla nascita del 
soggetto alla data prescelta per il cal- 
colo per poi determinare i valori dei 
vari cicli. In sintesi, “bioritmi” si occu- 
pa di questo. 
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Linee Commento 
100 
300 


nascita 


400-500 


subroutine per il disegno degli assi dei grafici. 
subroutine per il calcolo dei giorni passati dalla data di 


subroutine usate per l'aggiunta dei titoli ai grafici 


1000 
2000 
3000 
4000 


routine introduttiva 
routine opzione 2 
routine opzione 1 
routine opzione 3 


Scegliete un numero... 


Il programma comprende tre opzioni: 
la prima e la seconda producono grafi- 
ci in alta risoluzione dei bioritmi du- 
rante un dato mese di un qualsiasi an- 
no, presentando i tre cicli separata- 
mente oppure tutti insieme, per con- 
sentire un esame dettagliato di un par- 
ticolare ciclo come una visione globale 
della situazione complessiva. L'opzio- 


ne 3 è invece una routine che controlla 
i vostri bioritmi per un anno visualiz- 
zando i periodi in cui i tre cicli si trova- 
no contemporaneamente in prossimità 
di un massimo o di un minimo, il loro 
valore (compreso tra 100 e -100) e il li- 
vello di significato di ogni data, che va- 
ria da 10a-10e vi permette di valutare 
con una sola occhiata se sarà una ma- 
gnifica giornata o se invece le peggiori 


disgrazie si abbatteranno su di voi (si 
fa per dire...). 


Come funziona 


Una volta inserito il programma in me- 
moria, salvatelo digitando GO TO 
9999,. linea che comprende anche la 
possibilità di eseguire un VERIFY suc- 
cessivo. In fase di caricamento, il pro- 
gramma partirà da solo mostrandovi il 
‘menu di partenza; scegliete a questo 
punto la vostra opzione e il calcolatore 
vi chiederà le date a lui occorrenti per i 
calcoli. Ricordatevi di inserire gli anni 
per esteso, con quattro cifre! 

Le prime due opzioni visualizzano di- 


rettamente i grafici, mentre l'opzione 3 
calcola i dati necessari alla compilazio- 
ne della tabella. Siccome si tratta di 
un'operazione relativamente comples- 
sa, potrà sembrare per qualche secon- 
do che il vostro Spectrum sia inattivo: 
abbiate solo qualche attimo di pazien- 
za e vedrete apparire sullo schermo le 
date significative o, in mancanza di 
queste, le prime tre lettere del mese 
sotto esame. Ricordo ancora che è pos- 
sibile avere la stampa di ogni opzione, 
digitando ‘“p’ su richiesta del compu- 
ter; in caso contrario, schiacciate sem- 
plicemente il tasto ENTER. 

Il programma presenta una struttura 


piuttosto lineare, come potete vedere 
dalla tabella pubblicata: le uniche 
complicazioni sono venute dal proble- 
ma di far capire allo Spectrum come 
determinare gli anni bisestili, col risul- 
tato di dare ad alcune linee del pro- 
gramma una certa complessità. Un 
compitino per i più intraprendenti: 
provate a realizzare una routine simile 
a quella dell'opzione 3 che tenga conto 
dei giorni critici (quelli caratterizzati 
da uno o più cicli che si intersecano o 
attraversano lo zero) e semicritici (il 
giorno precedente e successivo a un 
giorno critico), di grande importanza 
nella teoria dei bioritmi. 


Bioritmi 


versione per ZX Spectrum 16K/48K 


500 


PRINT AT 3,0;b$((ww-1)*12+1 
TO (ww-1)*12+13): RETURN 


010 CLS 
1020 LET a$="GENFEBMARAPRMAGGIUL 
20 GO TO 1000 UGAGOSETOTTNOVDICGENFEB" 
50 DATA 31,28+(1 AND (m>2 1030 LET b$="intellettualemozion 
AND INT (yy/4)=yy/4)),31,3 ale fisico a 
0,31,30,31,31,30,31,30,31,3 1040 PRINT "scegli l'opzione:"'' 
i, ° "1)tutti e tre i cicli most 
110 PLOT x+4-xx*6, 72 rati separatamente"’’'"2)tu 
120 IF x/6<>INT (x/6) THEN tti i cicli mostrati insiem 
RETURN e"''"3)la lista dei.punti e 
130 PLOT x+4-xx*6,73: LET date= stremi per un periodo di do 
date+l . dici mesi" 
140 RESTORE 50: FOR q=l TO m: 1050 INPUT dd 
READ c: NEXT q 1060 CLS 
150 IF (m=2 AND (INT (yy/4)=yy/ 1070 INPUT "giorno del mese di n 
4)) THEN LET c=29 ascita ";d 
160 IF NOT (INT ((date-1)/7)=(d 1080 INPUT "mese ";m 
ate-1)/7 AND date>l) THEN 1090 INPUT "anno "j;y: LET yy=y+( 
I GO TO 190 1900 AND y<1900): GO SUB 30 
170 FOR w=72 TO 75: PLOT x+4-xx 0 
*6,Ww: NEXT w 1100 LET dob=t: INPUT "mese scel 
180 IF (x-xx*6)/8<28 THEN to per il calcolo ";v: 
PRINT AT 13, (x-xx*6)/8;dat LET m=v 
e-l: PRINT AT 14, (x-xx*6)/8 1110 INPUT "anno a de sc LET YY=Y+( 
sa$((m-1)*3+1 TO m*3) . 1900 AND y<1900): LET u=l: 
190 IF date>c AND NOT (INT (y/4 LET d=l: GO SUB 300 
)=y/4 AND m=2) THEN LET m= 1120 LET new=t 
m+l: LET date=l 1130 LET dif=new-dob 
200 IF date>c+1 THEN LET m=m+1l 1140 LET xx=dif 
° LET date=l 1150 LET ww=l: IF dd=l THEN 
210 RETURN GO TO 3000 
310 RESTORE 50: LET mo=0: FOR s 1160 IF da=3 THEN GO TO 4000 
=l TO m-l: READ q: LET mo=m 2010 PRINT AT 0,0;" intellett. = 
o+g: NEXT Ss i ‘è LET b=8:: LET c=2: 
320 LET ye=(yy-1900)*365+INT (( GO SUB 400 
yy-1901)/4) 2020 PRINT " emozionale = ": 
330 LET t=d+mo+ye LET b=2: LET c=10: 
350 RETURN GO SUB 400 
400 FOR a=0 TO 40 STEP Db: 2030 PRINT " | fisico = ": 
. PLOT 108+a,173-c: NEXT a: LET b=4: LET c=18: 
RETURN GO SUB 400 
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2040 
2050 
2060 
2070 


2080 
2090 
2100 


2110 
2120 
2130 
2140 


2150 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 


3090 


3100 
3110 
3120 
3130 
3140 


3150 
3160 
3170 
3180 


3190 
3200 
4010 


4020 


4030 
4040 
4050 
4060 
4070 


LET date=l: LET xx=dif 

FOR x=xx*6 TO 250+xx*6 

LET y=72+60*SIN (x/99*PI) 
IF x/6=INT (x/6) THEN 
PLOT x+4-xx*6,y 

LET y=72+60*SIN (x/99*PI/2 
3% 33) 

IF x/2=INT (x/2) THEN 
PLOT x+4-xx*6,y 

LET y=72+60*SIN (x/99*PI/2 
8*33) 

PLOT x+4-xx*6,y 

GO SUB 100 

NEXT x 


INPUT "premi p per stampare 


";v$: IF v$="p" THEN 
COPY 

STOP 

GO SUB 500 


LET date=l: LET xx=dif 
FOR x=xx*6 TO 250+xx*6 
LET y=72+60*SIN (x/99*PI) 
PLOT x+4-xx*6,y 

GO SUB 100 

NEXT x 

LET date=d: LET xx=dif: 


. LET m=v 


INPUT "premi p per stampare 
“:v$: IF v$="p" THEN 

COPY : LPRINT LPRINT :: 
LPRINT : LPRINT 

CLS LET ww=ww+1l 

GO .TO 3040+ww*40 

GO SUB 500 

FOR x=xx*6 TO 250+xx*6 

LET y=72+60*SIN (x/99*PI*3 


3/28) 
GO TO 3050 
GO SUB 500 


FOR x=xx*6 TO 250+xx*6 
LET y=72+60*SIN (x/99*PI*3 


3/23) 

GO TO 3050 

STOP 

PRINT " alti e bassi": 
PRINT "data int em 
O fis sig": LET gg=0: 


LET date=d: FOR x=xx TO xx 
+365 

PRINT AT 2,0;a$(3*m-2 TO 3* 
m) — 

LET gg=0: LET date=d 

FOR x=xx TO xx+365 

LET aa=SIN (x*PI*2/33) 

LET bb=SIN (x*PI*2/28) 

LET cc=SIN (x*PI*2/23) 
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4080 


4090 
4100 


4110 
4120 


4130 


4140 


4150 


4160 


4170 
4180 


4190 
4200 
4210 


4220 


4230 
4240 
4250 
4260 


4270 
4280 


4290 
4300 
4310 


4320 
9999 


RESTORE 50: FOR q=1 TO m: 
READ c: NEXT q 

LET ch=0 

IF (m=2 AND (INT (yy/4)=yy/ 
4)) THEN LET c=29 

LET date=date+1l 

IF date>31 AND m=12 THEN 
LET m=1: LET date=l: LET y 
y=yy+1l: LET ch=l1 

IF date>c AND NOT (INT (y/4 
)=y/4 AND m=2) THEN LET m= 

m+l: LET date=l: LET ch=l1 
IF date>c+1l1 THEN LET m=m+t1 
: LET date=l: LET ch=1 

IF (ch=l AND gg<20) THEN 
PRINT AT gg+2,0;a$(3*m-2 
TO 3*m) 

IF (aa+bb+cc<2.4) AND (aa+tb 
b+cc>-2.4) THEN GO TO 4300 


LET gg=gg+1 

PRINT AT gg+1,0;date;TAB 2 
" -emp"a ":yy-1900;" n, 

"i pui THEN PRINT TAB 10; 
PRINT TAB l11;ABS (INT dell 
00)); 


ui bb<0 THEN PRINT TAB 16; 
, 

, 
PRINT TAB 17;ABS (INT (bb*1 
00)); 


IF cc<0 THEN PRINT TAB 22; 
" 9 ; 

PRINT TAB 23;ABS (INT (cc*1 
00)); 

IF cc<0 THEN PRINT TAB 29; 
" ULI 
sali. 

LET ee=ABS (aa+bb+cc)-2.3: 
LET ee=INT (ee/7*100+.5): 
PRINT TAB 30;ee 

IF gg<20 THEN GO TO 4300 

INPUT "premi p per stampare 


":iv$: IF v$="p" THEN 
COPY 

LET gg=-2: CLS 

NEXT x 


INPUT "premi p per stampare 


";v$: IF v$="p" THEN 

PRINT AT gg+2,0;" sg - 
COPY 

STOP 

SAVE "bioritmi" LINE:l: 
PRINT "VERIFY": VERIFY "bi 


ovditmi":. CLS. s- PRINT." 0. _-K 


di Roger Harmsworth 
trad. e adatt. di 
Angelo Motta 


A caccia di cristalli su un lonta- 
no pianeta, per la difesa della 
terra! 


cco una avventura spaziale che non 
mancherà di affascinarvi. Il gioco 
inizia nelle caverne del pianeta Zaphod 
dove vi sono dei particolari cristalli 

(rappresentati dalla lettera O in inver- 

so) indispensabili alla sopravvivenza 

della Terra. Voi siete stato inviato sul 

pianeta col compito di raccoglierne il 

più possibile, evitando però le insidie 

nascoste rappresentate da: 

— un mostro (carattere £), chiamato 
TRI HEX, che cercherà di ostaco- 
lare il Vostro cammino; 

— dei cunicoli nascosti (carattere 
grafico cod. 8 - grapichs shift A) 
attraverso i quali scivolerete nelle 
caverne sottostanti. Per risalire al- 
la ricerca dei cristalli dovrete tro- 
vare un elevatore (lettera E in in- 
verso); 

—. untrasportatore di materia (carat- 
tere “ in inverso) che vi invierà sul 
pianeta chiamato DXA4; per fare ri- 
torno su Zaphod dovrete cercare 
uno shuttle (lettera S in inverso). 

Il tutto tenendo inoltre presente il tem- 

po a disposizione e la possibilità che i 

cunicoli siano senza fondo o il traspor- 

tatore di materia si guasti. 

Per fare ritorno sulla terra, dopo aver 

raccolto i cristalli, dovrete prendere la 

vostra astronave situata sul lato 
sinistro/alto dello schermo e rappre- 
sentata da una H in inverso. 

Il gioco è stato realizzato totalmente in 

BASIC e, essendo quest’ultimo abba- 

stanza lento nello ZX81, la velocità ne 

risente per cui è possibile evitare con 
relativa facilità sia il mostro che le al- 
tre difficoltà presenti, salvo il caso che 
un cunicolo o il trasportatore di mate- 
ria blocchino il passaggio fra le caver- 
ne per cui, inevitabilmente, dovrete ac- 


I cristalli di Zaphod 


cedervi. 

Un altro motivo che può rendere con- 
veniente entrare in un cunicolo o nel 
trasportatore di materia sta nel fatto 
che quando si cade nelle caverne infe- 
riori, o si ritorna a quelle superiori o si 


fa ritorno dal pianeta DXA, vi viene as- 
segnato un supplemento di tempo a di- 
sposizione per cui è possibile allunga- 
re notevolmente il gioco. 

Passiamo ora all'esame del program- 
ma: 


Linee 
1-45 


100-120 
130-400 
400-490 
520-625 
630-780 


1000-1030 
1040-1110 
2000-2060 
3000-3030 
4100-4130 


4140-4239 
4240-4310 
7000-7180 
8000-8160 
9000-9040 


9800-9940 


9950-9970 


Commento 

REM iniziale nella quale verrà inserito il linguaggio 
macchina contenuto nella stringa M$ con il quale viene 
effettuata l'inversione del video 

presentazione del gioco e richiesta per le istruzioni 
visualizzano le istruzioni del gioco 

predisposizione nelle variabili iniziali 

visualizzano le caverne di Zaphod 

ciclo principale che provvede al movimento del mostro 
e del vostro carattere rappresentato da un asterisco e 
controlla il carattere incontrato rimandando alle relati- 
ve routine 

routine cui accede quando si viene catturati dal mostro 
TRI HEX 

routine finale che segnala se è stato fatto il record e 
chiede se si vuol fare un'altra partita 

routine cui si accede quando si fa ritorno sulla terra con 
la propria astronave 

routine cui si accede quando il tempo a disposizione è 
scaduto 

routine che effettua il flash del video. Viene chiamata 
quando si incontra il trasportatore di materia o si fa ri- 
torno dal pianeta DX4 

routine che viene chiamata quando si incontra il tra- 
sportatore di materia 

routine cui si accede quando si prende uno shuttle per 
far ritorno dal pianeta DX4 

routine cui si accede quando si scivola in un cunicolo e 
si scende al livello inferiore 

effettuano il ritorno dal livello inferiore alle caverne dei 
cristalli 

provvede a far apparire sullo schermo i simboli relativi 
alle varie situazioni di gioco (caverne inferiori - pianeta 
DX4) 

handicap del programma: può capitare che quando si 
incontra un cunicolo o il teletrasportatore di materia, il 
primo sia senza fine e il secondo si guasti. In questo ca- 
so siete stati sfortunati ed il gioco finisce. 

salvataggio del programma. 


ca cogli i 10 # ST ZZ=1+PEEK 15396+255#PEE 
8 \ ADS 
versione per è 20 LET M$="042 Ql2 064 005 0235 
0435 035 125 254 115 032 0035 Q1l6 
1_REM_EGRNDgl#F7 SAVE TAN LEN 2435 201 1935 125 119 024 242" 
Mu? PRU: Sd FOR M=16514 TO 16533 
2 RE 35 RPOKRE M.,UAL M$i TO SI 
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di0 LET M$=M$ (5 TO 1 


dS5 NEXT M 

100 PRINT apri SAS TI CRISTALLI DI 

ZA&PHODE = 

110 PRINT ù VUDI LE ISTRUZIO 
NI?-=(S7MN}-* 

120 OTO 120+ (10 cn INKEYV &=" 

1 + (2509 AND INKEV$=" 

150 PRINT_AT 2, di “SEI STATO _INU 
IATO SUL PIANETÀ Z6PHOD PER _ RA 
CCOGLIERE DEI CRI- STALLI INCISP 
ENSABSILI ALLA 50-" £ 
ann” PRINT “PRAVUIVENZA DELLA TE 

1S0 PRINT "I CRISTALLI SI TROVA 
NO NELLE CA-VERNE ALL" INTERNO DE 
L PIANETA" 

150 FPRINT_"IN ESSE INCONTRERRI 
ANCHE DIVER-SI IDSTACOLI: 

1709 PRINT "- UN MOSTRO CHIAMATO 

TRI HEX CHE CERCHERA* DI UCCIO 
ERTI" 

150 PRINT "- DEI CUNICOLI CHE T 
I FARANNO CADERE NELLE CHVER 
NE INFERIORI FER RISALIFE DGOURA 
I CERCARTIO GLI ELEVATORI" 

198 PRINT "- DEI TELETRASFORTAT 
ORI DI MRTE- RIA CHE TI FORTERA 
NNO SU LN PIANETA CHIAMATO C 
x4 : FER RI- TORNARE SU ZAFHOC 
DOVRAI TRO- LINO : 


UHRRE 
200 PRINT # 


210 INPUT Z$ 
220 CLS 
230 PRINT 


240 PRINT .,ìè 
245 PRINT ,,' 
ERNE" 
250 PRINT ,," 


TU" 
MURO DELLE 
= CRISTALLI" 


CRU 


er S PRINT .," LA TUA ASTRONA 
259 PRINT -|,."®& = CUNICOLO" 

255 PRINT ,," = ELEVATORE " 

2709 PRINT .,," Ss SPDUCILE 

SITO CPRINIT ,,° = TELETRASPORTAR 
E DI MATERIA" 

TO PRINT suini LINE PER CON 
252 INPUT 2% 

255 CLS 

2902 PRINT "PER MUOVERTI: 

S30A PRINT ,,"'5 - A SINISTRA 

305 PRINT_,.,"65 - IN BRS3S0" 

318 PRINT ge ALTO" 

31S PRI '8 - A_DESTR 

320 FR MEI LIONA FOR 

da FR Ma RE N 

390 IF INKEY$="" THEN GOTO 3590 
dLaa CLS 

4509 LET 

455 LET 240 

450 


LI LI FU MALDI 
V0Bae 8996 


JT 


AT 
NT RT 15 Hi Loreti 


UNEEODBAinAiNnoi E È 


DI 
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DIO 


UAAR UU TEA TI 


2000 0 A Lo fo fo fo fo fuo PT Gt I at ed e we Di i HF - 


vii <do 


| 
<a} 


SS PRINT AT d, 
iCHR$S O; AT 

R$ O;AT 1 
A; ; 


DD 


Ti 


DI 


[e] 
I00- 


HE T-- + 
<< DG DOBA&EMTM 
VA -an1I-: 


* dI DOS 
m 
Nec. 


4 DOS 

-Jd-- £ 
Ci. Ii-- 

fot HdtI-- 


ITA Ao 
Tr 
Tm Hu 


DIX05H-7D 


Cnn) 
+12 0 


comu 
dz 


ND*1?)+1,INT 


xi 
Hi 
a 
A 
e 
134 
HH! 
Z 


O 
+ DOZA DIZE DIL: 


di 
T iR 
ai: ACNE 1535 
ENT D 
'RINT AT 1,1; RCN 
RINT AT INT (RND+ 
DI3SD1V +1; 
FUR D=sd9 To 25 
INT AT INT 
D+23) +1; CHR$ @ 
NEXT DE 
LET BaeZZ+936 
LET i. 


L1P)+1.,INT 


ig et it 


00 


(RND*17) +1, INT 


I 
; DI 
0 


r 
m 
+ 
Dan | 
(4 


GOTO Sada 


Cuzipe n 


That 


zuomm 


21,0; "CRISTALLI "; 


lf 
EC TOMO OL 


—_, — 
A 


JT 


mimi 


Lig reni 

Hi 
zm mn 

s AHAH TZDIHHHZZO 
ADH I- “i 


2 in n L 


I-1 i i 
( INKEYV$="S") - {(INKEY 


A THEN GOTO Sana 
da (33.8 AND INKEY $="5") 


e Tit pagati 


CI-JTi 
= 


530 IF PEEK (A)=128 THEN LET A= 


E 


Rota B=B+:(33 AND G=9)- (33 AN 
Di ; 
+15: IF _B<=T THEN LET O=0 
#29 IF B>:T+(15+*331 THEN LET @UQ=1 
759 POKE nia 
Pica IF PEEK =12 THEN GoTo 19 
ine* IF PEEK ‘f1=1834 THEN GOTO 4 
LINA 
#65 IF PEEK (AI=1?3 THEN GOTO 2 
BLA 
o IF PEER (8) =180 THEN LET C= 
D+£ 
ed IF PEEK (fR’=139 THEN GOTO 4 
#25 IF PEEK (R)=1708 THEN GOTTO & 
QIA 
Ye? IF PEEK (àA)=136 THEN GOTO 7? 
VOLA i 
750 GOTO0 S30 
1000 CLS 
lezge PRINT "HRI RECUPERATO “";G;" 
CRISTALLI, MA" 
1239 PRINT "TRI HEX TI HA PRESO 
ED *VSCCISO” 
i rt IF PEEK 165087.:C0 THEN GOTOA 
1045 POKE 15507, 
1@Se PRINT .,, * SOMUNGUE HRI STARBI 
LITO IL NUOVO RECORD" i 
1059 FOR I=l TO 100 
3065 NEXT I 
1e7e PRINTO:. GIOCHI ANCORAF (5, 
2 $ 8 
10S® INPUT E$ 
1065 CLS 
10509 IF Bs$="S" THEN FLIN 
1190 PRINT CIRO 
1110 S3TNMP 
2000 CLS 
Sch 5 "LA TERRA TI E* GRATA 
i “i 
20209 PRINT "CRISTALLI RACCOLTI 5 
U ZAPHOD" 
20308 IF Ce? THEN PRINT " PERO 
NE HRI PRESI VERAMENTE POCHI PE 
R_ CUI RITORNA SU ZAPHOCG A PRENDE 
RNE ALTRI" 
2bS0: IEnORT7SFHEN LET Hel 
2050 cGO0T0 1040 
Speaa CLS 
SQ0910 PRINT "IL TEMPO A TUA DISPO 
SIIONE ES TERMINATO" 
39209 PRINT "LE PORTE DELLE CAVIER 
Hi I ZAPHODSI SONO CHIUSE E TRI 
TI_STA CACCIANDO" 
GOUTO 19040 
FOR M=l ToO*30 
RAND LUSR 15514 
NEXT M 


CL 
IF G=1 THEN GOTO 4240 


ATO «JU NON XX 0a 0090 


- OE POIEpPpr FFPFPFFPOIMOGOHOOGGOZ 
JITHTARA PARUOMNPFPEIELCIT 


PIA IRZIPAARA PRAPRARRAL 


LET Geil 

LET <VSYT+#1 

IF Y:=$ THEN GOTTO 39300 

PRINT "SEI CADUTO NEL TRARSP 
Lin MATERIA CHE TI HAR MA 
O: SUL" 

PA PRINT "PIANETA CHIBMATO [SO 
1350 PRINT "PER RITORNARE SU TAP 
DO OGOVRRI CERCARTI UNO SHUTTLE 
150 PRINT "STRI ATTENTO; ANCHE b 

LI DXd CE LN MOSTRO" 


"0 


SITO NESTODO cu a 3 I 
pr PRINT AT 1,13; S8SE SCADUTO 
IN (SS > pe 

7050 PRINT AT 3,12; "SUNSCUNICOLO 


ALS RI i 
Pasa PRINT AT 2; &L IVELLORSOT 
2; "#5TANTER" 


a 
TO-S8" 

7070 PRINT AT 7, 

7050 PRINT AT 3,12; "#CERCATINUN® 
cena. PRINT AT 11,12; $ELEVATORES 
7235 PRINT AT 13,12; "S$RITORNAREW 


aid te 


ALÉ 
c88° PRINT AT 15,12; "&LIVELLOSDO 
21310 PRINT AT 17,12; 'i8TI&TROVAVI 


s' 
7120 FRINT AT 19,12; 


tese LET TI=200 
Cake LET F=i 

23145 LET Y=sY4+1 
F1S0 FOR D=s0 TO 20 


biep=fa e dei SG LION FORTUNA 
4225 FOR D=1 TO 100 

4259 NEXT D 

+34 CLS 

4F93° LET Z=1 

42357 RET Fsi 

4239 GOT0 520 

4I24O CLS 4 

+255 PRINT "SEI RITORNATO SU ME 
4250 PRINT "ORA PUOI CONTINUARE 
R_ RACCO- GL IERE I_ CRISTALLI" 
4255 PRINT Ù 
429509 LET TI= - 200 

43099 LET GB=0 

43092 LET Pe = 

4305 LET i 

4307? FOR d= =2 TO 1080 

43509 NEXT D 

4I310 GOTTO 520 

7000 CLS 

5920 FOR D=08 TO 2 


sO PRINT WIR 


BEE LIONAESF CRT 


7150 FRINT AT D.9; CHR$ 25;AT D,9 
 CHR $ d 


NEXT_D 
7172 FOR D=1 TO 100 


5155 IF Y:=8 THEN GOTO 3500 
7189 GOTO S20 
3sd00 CL3 
sola FOR D=s9 TO 20° 

sasa FI INT" NEGRONI 

ASL E) } 
3040 PRINT AT 1,13; "SEISRITORNAT 
a 
39SA PRINT AT 3,15; "ALSLIVELLO" 
S950 PRINT AT 5,13; "SUPERIORE" 
3079 PRINT AT 7,13; CONT INUARA" 
3075 PRINT AT 9,13; "RACCOGLIERE" 
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PRINT AT 11,13; IS$CRISTALLI 


90 LET Fed 

LET TI=200 

FUR Deee. 1900 dle -1 

fu AT D.,3; CARS 23;AT D.9 
NEXT D 

FOR D=1 TO 100 

NEXT D 

ste 520 L. 

IF =l THEN GOTO 90930 

5R Dai TO 4 

PRINT DE peli (RND #17) #1, INT 
nl le HR$ 170 


31 THEN GOTO 9040 
INT iRND*171+1,INT 
R$ 184 


o 
G 
(al 
Lo 


no -- 


AUVIMMNEGI 


9002900 ZIMCLIIIIOA 
i 
So 
L 


uD ul ut Co 0 Co Co*- CO CO 


(DI ULI 
4 


Y OL 
CON ILCENTRO DEL 
VONO IMOSTRI CHE 


R_D=1 TO 150 


Un <C 


MIDOGOOGZIAIH Dog DH 


19 


"DI E" DISINTEGRATO N 


N 3 
w 

ros 

O 9552 
A 

E 


_ 
'— 


ome 
pra 
14 

io 


GUIDO DIEFEG5AILIOIOIDE GEE 
(3 
ZoeMHdDna 


[a 
HGGRIOH A 


R, 


MODI 0A TIE - 0900-00 FFPFEEM0HFEPHP9 


ti ud uti ud ui Ce fT]c t 


NT_"“IL TELETRASPORTATORE 


IA SI E* GUASTATO ED IL TALLI ZAPHOB" 
ne i 


ili li ue uo (Tui 
m 

H 

Li 


Usi 

HI 

1 

rs 

1-40 

(Ct uo ud uo Tuo 
«JM nsa rm fu 
DOG 
Nuangint 
© bi 


a 
C 
O 
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Sul prossimo numero 


Sinclair shopping 2° parte: come 
trasformare un piccolo Sinclair in un 
sistema ai limiti del professionale 


Nei meandri dello Spectrum: finalmente un 
articolo sull’hardware alla portata di tutti! 


Display file e attributi: ecco come viene 
gestito il video dello Spectrum (più uno 
‘“scherzo’”’ a sorpresa!) 


Tre topi * Microassembler * La diga * 
(i vostri programmi!) 


Le recensioni del migliore software estero 


Imparare il BASIC con lo Spectrum: 
la recensione 


Lo spazio dedicato ai Club Sinclair italiani 


... e altro ancora sul prossimo numero di 
SUPERSINC 
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di Norman Brooks 
trad. e adatt. di 
Angelo Motta 


Un programma che vi riporterà in- 
dietro nel tempo di qualche secolo 
quando vi erano ancora manieri in- 
festati da feroci dragoni. 


oi siete il valoroso capitano al qua- 
Vi è stato affidato il compito di di- 
struggere uno di questi castelli. Per 
portare a compimento la vostra mis- 
sione avete a disposizione 5 cannoni e 
12 proiettili. 
La distanza del cannone dal castello 
verrà determinata casualmente dallo 
ZX per cui dovrete decidere quanta 
polvere da sparo utilizzare (da 25 a 35 
libbre) ed a quale angolazione inclina- 
re il cannone (da 0 a 89 gradi - non 90° 
altrimenti la palla cadrebbe sul canno- 
ne). 
Attenzione però: il rumore dello sparo 
sveglia i dragoni che usciranno dal ca- 
stello (quando sono in volo il tempo si 
fermerà) e cercheranno di bruciare sia 
il cannone che la palla in volo. 
Quando avrete colpito il castello, lo 
ZX81, tenendo conto della potenza 
del, dell’angolazione del cannone e 
dell'altezza del punto colpito, vi asse- 
gnerà un determinato numero di mat- 
toni abbattuti; quando ne avrete abbat- 
tuti almeno 6.000 il castello sarà in ro- 
vina e vedrete i dragoni fuggite alla ri- 
cerca di un nuovo rifugio. Se invece re- 
sterete senza cannoni, o senza muni- 
zioni, o deciderete di abbandonare il 
gioco, allora fuggire perché i dragoni 
vi inseguiranno. 
Il listato del gioco è molto lungo e ri- 
chede un notevole tempo per la digita- 
zione. La grafica è comunque così ben 
fatta che ripaga la fatica necessaria. 


80-400 


430-1145 


2000-2990 


2992-2996 
3000-4990 


5000-5500 
6000-6500 


6600-6720 
7000-7340 


7350-7990 


8000-8990 


9000-9990 


Commento 


presentazione del gioco che rimanda alla subroutine al- 
le linee 9000 in caso di richiesta di istruzioni 
predisposizione delle variabili di controllo del gioco: 
MT = mattoni abbattuti, CN = cannoni a disposizione, 
CP = munizioni a disposizione, RT = identificatore del- 
la ritirata 

predispone casualmente la distanza del cannone dal ca- 
stello e rimanda alle subroutine alle linee 8000 per la 
scena iniziale e 2000 per l’alzo del cannone 

ciclo principale nel quale viene visualizzato lo sparo; 
ogni cinque spostamenti della palla esce dal castello un 
dragone che cercherà di distruggere il cannone o la pal- 
la (se in precedenza avrà distrutto il cannone si dirigerà 
senza scrupoli sulla palla); e, in base a dove verrà colpi- 
to il castello, assegna un determinato numero di matto- 
ni abbattuti 

subroutine che provvede all’alzo del cannone nella posi- 
zione desiderata 

ciclo di ritardo 

uscita del dragone dal castello e tentativo di distruzione 
del cannone o della palla 

subroutine che visualizza l'angolo di elevazione del can- 
none - viene chiamata dalla subroutine alla linea 2000 
visualizza lo sparo 

segnala se il dragone ha distrutto il cannone o la palla 
routine di vittoria in caso si sia riusciti ad abbattere al- 
meno 6000 mattoni del castello. Vengono visualizzati i 
dragoni che fuggono alla ricerca di un nuovo rifugio 
routine cui si accede nel caso si rimanga senza cannoni, 
senza munizioni o si decida di smettere di giocare. Ven- 
gono visualizzati i dragoni che si avventano su di voi. 
scena iniziale. Viene visualizzato il castello, il cannone e 
la situazione di quanti mattoni avete abbattuto ed i can- 
noni e le munizioni che vi restano. In base a quanti mat- 
toni avete abbattuto vedrete il castello in rovina. Viene 
successivamente richiesto di inserire la quantità di pol- 
vere da sparo con cui caricare il cannone e l’angolo di 
elevazione dello stesso 

subroutine che visualizza le istruzioni del gioco 
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Il castello dei dragoni 
versione per ZX81 16K 


rhî ERI TRE 4; GRIGIE 
PRINT_. TAB 3; "VUDI LE ISTR 


Li NI (SAN 
THEN GOTO 


1 


List! 


IUpPH 


IF INKEY$="" 18 
IF INKEY$="5" THEN G0SUB 30 


LET. MT=@ 
LET. CN=S_ 


& 
& 
Go ca 


LET N=INT_ iRND#15) 

LET M=N#+100+500 

LET G=0 

GOSUÈ SODO 

INPUT_A 

IF A>}89 THEN GOTO 3950 
GOSUB 2000 


REM 
REM **#CICLO PRINCIPALE +* 
REM 


4509 CLS 
500 LET B= REP ILI5O. 


GO GIGGGGsNAaoA 
D 
DI 
È 
O 


PW@IOE 
MNPAUWSDOBAIUPEMNW LOS JT CN 


ff 
05 


SD 


RIE Pi cn 
- 200 PRINT AT_19,20-N, "OP" 


719 GOSUB SO000 

729 LET X1=0 

(ad: LET. YIao 

758 FOR x=199 TO M+400 STEP 100 
8S0 LET Y=iX+TAN B)-i(x+#2/(Us=0 
9*005S B+C05 B)) 

Prc IF Y:=09 AND x<M THEN GOTO 1 
365 IF Y:=9 AND X>=M+150 THEN G 
DTO 1a50 
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(X/50) +43-2#N, (Y 50) +5 
(X1/50) 


AND X« 


370 PLOT 
392 IF X1>:9® THEN UNPLOT 
+33- [2*N), (V1-550)+5 

910 IF X-r250=INT iX-250) 
THEN GOSUB 3000 

209 LET X1=X 

eeLET YLlavY i i 
100909 IF X>.=M AND X<iM+150) AND Y 
{499 THEN GOTO 1a70 

1020 fas x 

1059 PRINT AT 12,5;""*#TIRO OLTRE 

9 BERSAGLIO?" 

1952 GOTO 1120 d 
10? PRINT AT 165,25; "COLPITO":;TA 
B 25; ski pita" 

190721 IF YV<=490 RAND Y>}350 THEN LE 


1972 IF Y:=350 AND Y>300 THEN LE 
® AND Yv>200 THEN LE 


oe 


T MT=MT+?50 

19768 IF Y:=2090 AND Y>}100 THEN LE 

T MT=MT+5S00 

1078 IF YV<:=1909 THEN LET MT=MT+25 
I 

19809 GOTO li=w 

1100 PRINT AT 12,19; "* TIRO CORT 
I 4%" 

1120 LET CP=CP-1 

1125 PRINT AT 21,2; "VUCI CONTINU 
ARE? (SN) 

1127? IF INKEY$="" THEN GOTO 1127 
1135 IF INKEY$="N" THEN LET RT=1 
1145 GOTO 5S0 

2000 REM +#AGGIUSTAMENTO TIR0++# 
20209 CLS 

2950 PRINT "CANNONIERE CARICA IL 
CANNONE CON"; LU; " LIBBRE DI POLU 
ERE ED ALZALO A";A;" GRADI" 

20970 GOSUB 23992 

2100 PRINT ,,"SISSIGNORE" 

21 T_ 16,6% 

TRB 6; i’ ‘iii È 
2170 dl PRINT, AT 16:51 > MU. 
2 


'L° 
"E PRINT AT 1, 25" a e 
DO i PRINT RAT = 13;6-CN 
DE GOSUB 22992 

è G0SUB Sana 

20 IF A:45 Bia: GOTO 26550 

PO FOR x=1 pae 
5A LET v=XaTANO (R/1380xPI) 
d UNPLOT (XxX+35) , l1 

309 UNFLOT i(x+35) ,l0 

Ad PLOT (X+35), 1) 
AU FPICOT i(x+3 5) (v+10) 
2 NEXT Xx 

A SOTO 2910 

RA=930-A 


= O 20 
20 LET X=Y*TAN (R7130+PI) 
A UNPLOT AL 
Od UNPLOT (N+35) 10 
A PLOT X+35,V+11 
IA PLOT x+35 APELE 
OOMEXTI Y 
R=sIA-A 
Od GOSUB 2992 


UD UDO 00 IAT LIL 
Lo 
Gi 
m 
= 


@; "CANNONE POSIZ 


1 Sc 
& 
m 
i 


Medi de dad delie bre ii d de diede Alida LL cori dtd 


La RENT A;'" GRADI. ..,. sSIGNOR 
3945 PRINT 

959 GOSUB 2992 

9855 PRINT '+%k#s#xtkkt+" 

9709 PRINT "è FUOCO è*" 

9P5S PRINT "#5%k%F%t#t+" 

9809 GOosup 2232 


299509 RETURN 85900 RETURN 
2992 FOR I=1 TO 25 2500 REM #*DISTRUZ.CANNONE ++ 
2994 NEXT I 5619 LET CN=CN-1 
2995 RETURN s65209 FRINT AT 21,2; "IL CANNONE E 
3002 REM #x#*VOLO DEL DRAGONE + # STATO BRUCIATO" 
3020 LET Os INT (RND=21 8539 LET G=l 
= N LET P=aN+4+INT i = CF=CR- 
RND #4) 5710 PRINT AT 12,0; "IL DRAGONE H 
3052 IF O=1 THEN LET P=25-INT ii A_ERUCIATO LA PALLA" 
(X/50)]+43-(24N)) 2) +INT i(RND=*5) 57209 GOTO 1125 
‘3070 IF P<d THEN LET P=INT iRND+ FOOA REM +z#VITTORIA+* 
7190 PRINT AT 14,19; GER 


SI 
3050 IF P>.24 THEN LET P=24-INT i 


RND +41 712@ PRINT AT 15,19; "I DRAGONI" 
3100 FOR R=1 TO 5 F130 PRINT AT 15,19; "DEVONO CER- 
3119 PRINT AT 15-R,26; "88" » 
3129 PRINT AT 15-R,26;" " 7140 PRINT AT_12,19;"CARSI UN NU 
3130 PLOT (X/50)+43-2%N, iY/50) +5 O-"£TAB 198V0 RIFUGIO! 
3140 NEXT R 7200 FOR R=11 TO 2 STEP -1 
3150 FOR R=1 TO 4 7219 PRINT AT R,24;U 8" 
3150 PRINT AT 10-R,26,; "IM. ?220 PRINT AT R.24; & 
3170 PRINT_AT_9-R,25;' “;AT 102 72530 NEXT R 
-R,26;" ";AT S-R, ds; £ 72409 FOR R=24 TO 2 STEP -1 
3200 PLOT (X/50) +43-24N, (Y/50) +5 72509 PRINT AT 2,R; "0" 
3500 NEXT_R 72609 PRINT AT 2,R;" 
4990 FOR Q9=28 TO 26-P STEP -1 7279 NEXT R 
49208 PRINT ATO 7,0-1;" NA" 7289 FOR R=3 
4939 PRINT AT 7,0+2;" _" 7290 IF elia Cueii PRINT AT 2,.R; 
4940 PRINT AT 5,0-1;" MW" pa, 
4059 PRINT AT 5,0+2;" _" 72935 IF R>18 THEN PRINT AT 2,R;" 
4979 FRINT AT 5S,0-2;," MM" a 
4930 PRINT AT 5S,0+3;" " 73900 PRINT_AT 2,Ri" " 
42399 PRINT AT 4,09-23; "SMP 7305 MT R 
4150 PRINT AT 4,0+3;" " 7340 
4149 PRINT AT 3,0-2; "a" BS S350 
41509 PRINT AT 3,0+3; 7370 
4180 PRINT AT 2,0-2;,"E I° 7380 
4299 PRINT AT 2,0+3;" " 7390_F 
4249 FRINT AT 1,0-2; "a n' LE";TRE 
1380 nr vga 5700 SRINT RT 14, 18; "SEI STATO 
OT (X/50)+43-24N, iY/50) 4! os 
4300 NEXT @ R ATA" 
43509 FOR R=? TO 19 7424 FRINT AT 15,18; "TUTO E CORR 
4409 PRINT AT R,0+1; '$" I";TAB 15; "IN RITIRATA" 
44509 PRINT AT R,0+1;" 0" 7408 GOTO 7440 
4450 NEXT R palo PRINT AT 14,18; "TUTTI I CAN 
DO. G=9 AND (9+1=21-N OR Q+ De" 
=20-N) THEN GOSUB 56500 È 7415 PRINT AT_15,18; "NI SONO STA 
4600 IF Q+1=INT itiX/50)+43- (24N i ; TAB 13;° DISTRUTTI" 
1) #2) THEN GOTO 8700 440 PRINT AT 172,18;  sK#Ksk#t4%t44% 
476509 FOR R=1 TO 7 #84"; A 
SI ati RT _R.Wr1:: " 7450 PRINT AT 18,18: "a: FUGGI 
i (X/59])+43-28N, iY7 5 #| F P 
4820 NEXT R civas ani 7450 PRINT AT 19,18; "##E%#4#4##%##4 
43999 RETURN +4! 
SOUA REM ##ANGOLO DI ELEVAZIONE # 7472 PRINT AT 11,24;" "A" 
SOSO FOR R=29 TO 2 7473 PRINT AT 11,246;" " 
510909 PRINT AT 15-Ra3,28;R#415 7474 FOR R=24 TO 17 STEP -1 
5200 NEXT R 7425 PRINT AT 12,R;" 8" 
5250 PRINT AT 5,28;45 7478 PRINT AT 12,R;" " 
5390 FOR R=9 TO 2 ?477 NEXT R 
s350 PRINT AT 5,165+17-Rs3);50+R4 7478 PRINT AT 11,24; "IL 
15 7479 PRINT AT 12,21; " 5; 
54Q0 NEXT RO. 7489 FOR R=1 TO 83 
54209 PRINT AT 3,19; "ELEVAZIONE " 7482 PRINT AT 12+4R,17-24R;" 8" 
5440 LET R$="IN GRADI" 7484 PRINT_AT 12+R,1?-25R;" " 
5459 FOR R=1 TO 10 7488 NEXT R 
S470 PRINT AT 3+R,31;R$iR) 7487 DIM R$i7,5) 
5489 NEXT R 7483 LET R$il)=" " 
SSdd RETURN 7489 LET R$(2)="]} ' 
5000 REM ##SPARO»+* 7490 LET R$i3) =" " 
5050 LET Ag=" BODOM" 7491 LET R$i4)=" " 
50609 LET 6$=" 7492 LET R$ iS1=" " 
6190 FOR I=1l TO 7493 LET R$i65) =" " 
S1509 PRINT AT 19° 21-N+I;A$ iI) 7494 LET R$i7) =" " 
5200 NEXT I 7495 FOR R=1 TO 7 
8250 FOR I=1 TO 743965 PRINT AT 21-R,1;R$i3-R) 
53009 PRINT AT 19 21-N+1:B$ 7497 NEXT R 
5350 NEXT I 75009 DIM D$i13,10) 
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(1) =" 8115 PRINT AT 17,7?;" " 
SRIe ene Data, gi 3155 PRINT AT 8.2.1 Li ni 
>53d LET D$i3) =" 3130 PRINT AT 19,7;" " 
7525 LET D$(4) =" 3135 PRINT AT 20,2; "ameo©oa "- 

(S)a" lomemaniszzzetieneinianionenai 
3838 PET Baia; ss SISSA MT (250 THEN GOTO 8155 
7540 LET D$(7) =" 5140 LET E$= 
7545 LET D$isS!=' 3142 LET E=INT (MT /1000) l : 
7548 LET D$(9)=' 3144 LET F=INT_ i iMT- E +10001 /200) 
7559 LET D$il90)= v 3145 FOR R=0 TO E__ 
75609 LET D$ill)= " 5146 et AT 5+R,235;E$ 
75?0 LET D$il2)= 5147 N ide 
7589 LET D$(13)= Sl4ò FOR R=@ TO F__ 
7650 FUR R=1_TO SUR e £al 6+E,23+R;E$ il) 
AM ì n È a \ Pa! al 
se30 NESTOR ua: Al 3152 PRINT AT 12,23; "Me 
2700 DIM A$I(20,1 Toe 1250P _ AT 8,12;MT;TAB 12;CN; 
‘ RIVE HE zi 
(2) =' 3300 L iN 30 TO re) 
795 LET R$(2)= nil Mi dl € sido IF CP=0 THEN GOTO 2550 
?710 LET A$I3) =" m a 8500 IF _RT=1 THEN GOTO 7550 
" ° PA 33900 PRINT AT_2,0; "CANNONE SM 
7712 LET A$i4) =" Ed Li :" MT DAL CASTELLO" 


3910 


PRINT_AT 21,9; OUANTA POLVE 
RE? 25 i 


69 L8S) 
TNEUTO LU 9/4 
IF U:25 OR LU>35 THEN GOTO s 


(DA 


Sg 
DÒ 

wo 

nd 

n= 


#45 LET A$(51=e" 
13 LET A$IGIl =" 


Li 
? 
È 3la Ai } 
7720 LET A$(7) =" R Mali. 8950 PRINT AT 21,0; "ELEVAZIONE © 
n mmm mn SII | ESSO RETOR 
7722 LET A$(SI=" 3330 
pi > a SO0A REM + TS TRUE DON n) 1193906: 
P725 LET ASSI =" RE 3020 PRINT _AT_2,0;" ALORO 
ii" prlal* 50 CAPITANO CON IL COMPITO DI:DI 
7728 LET A$(10js" Re STRUGGERE IL CA-  STELLO DEI DR 
Ml AGONI" era i 7 , 
7730 LET A$il1l}s=" o Re 39320 PRINT "HAI A DISPOSIZIONE 5 
Ù CANNONI E 12 PALLE ...MA..  ATT 
7731 LET AGII2)I =" sile ENZIONE ... IL RUMORE DELLO SPAR 
DE aroma | Solo Eito escono pa ce 
2?32 LET A$ (13) =" 390409 PRINT "QUANDO ESCONO DAL CR 
n Î STELLO IL TEMPO SI FERMERA® E 
7735 LET A$(l4)=" "LL Ren CERCHERANNO DI DISTRUGGERTI I_CA 
ll " n NNONI E LE PALLE LANCIANDO LING 
7738 LET A$(15) =" UE DI FUOCO." PETE 
n’ ; 3059 PRINT "SE RIUSCIRAI Al_ABEA 
7740 LET A$(15)=" el ae È TTERE ALMEND6O08 MATTONI, DISTRU 
PF." i GGERARI IL LORO RIFUGIO E AVRAI 
7742 LET A$(17)\=" "5 imc. VINTO, MA.....+5E RIMARRAI SENZA 
2 CANNONI O" ì 
#745 LET A$(15)=" "" i 50 PRINT “MUNIZIONI... (Espana 
774% LET A$(19) 3070 PRIN ss 'PFREMI UN TASTO PER 
7743 LET A$(20) NIZIARE" TRA è 
7759 FOR R=1_ TO s100 IF INKEY$="" THEN GOTO 2100 
7770 PRINT AT 2 3999 RETURN O —— — 
7275 NEXT OR 9995 SAVE "DRAGONI" 
7999 STOP 39399 RUN 

3000 REM #+*SCENA INIZIALE ++ 

8059 PRINT AT u‘*) È 

PRIN pil SITUAZIONE i A causa di sensibili problemi di 
0 PEINT interfacciamento con la stampante 

freni 6 ni 1 da noi normalmente utilizzata, 
Soc PRINT NI MATTONI | siamo costretti a presentare i i listati 
ni d_PRINT n CANNONI | L| dei programmi per lo ZX81 in modo 
507 ma "I PALLE t i convenzionale. 


Fiduciosi nella vostra 
comprensione, vi promettiamo di 
fare tutto il possibile per poter 
ovviare all’inconveniente in tempi 
adeguati. 
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di Michael Parrish 
trad. e adatt. di 
Marcello Spero 


Come arrestare gli assalti alla vo- 
stra provvista di frutta? 


cco un nuovo problema. C'è una be- 
E stica, dall'aspetto simile ad un to- 
po, terribilmente ghiotta di frutta, e le- 
tale al solo contatto. La soluzione che 
vi proponiamo è semplice: sparatele! 
Ma quanto riuscirete a sopravvivere? 
Avete un solo modo di scoprirlo: co- 
piate questo programma e provate voi 
stessi. Avrete quattro vite, per comin- 
ciare, ma ne perderete una per ogni 
collisione con l’animaletto, o per ogni 
1000 punti totalizzati da quest'ultimo. 
Guadagnerete 10 punti per ciascun di- 
voratore distrutto, e altri 10 per ogni 
frutto colpito. Al termine di ciascuna 
fase riceverete un bonus di 60 punti. 
Il compito del piccolo divoratore, spe- 
cialmente nelle prime fasi del gioco, è 
più difficile del vostro, e perciò esso 
guadagnerà ben 50 punti per ciascun 
frutto mangiato, 50 punti ogni volta 
che supera e 100 se vi tocca. 
Ce la farete a resistere per tutte e quat- 
tro le fasi? Ognuna è più difficile della 
precedente, mentre per ogni 1000 
punti da voi totalizzati il ciclo ricomin- 
cerà. Per muovervi usate i tasti 6 (giù) 
e 7 (su); 100 per fare fuoco. 


Il divoratore pazzo 


versione per ZX Spectruir 


È REM KKKKKKAKAKKAKAKAKKAKAAA 
\ 5 MANHÒ 

R * 
KKKAKAKKAKAKKKAAK 

4 GO SUB 970 
6 GO TO 1290 
(0) 


8: LET b=3 
29 GO TO 45 


31 REM punteggio***********%*** 


LET =29: LET v=28: LET..a=l 


Linee 


4-48 


49-881 
882-900 


901-915 
969-1200 
1292-1294 
1290-1450 
1499-1535 


1980-2114 


2499-3600 
4199-4240 
4885-5010 
8888-9030 


Commento 


GO SUB per la grafica, GO TO per l'introduzione e ini- 
zializzazione 

ciclo principale 

siete stati morsicati! Perdita di una vita e controllo per 
la fine partita 

la bestiola vi ha superato 

DATA per la grafica 

inserimento CAPS SHIFT 

introduzione; preparazione variabili e schermo 
reinizializzazione variabili e fasi al raggiungimento di 
1000 punti 

stampa casuale dei frutti e aggiornamento dello scher- 
mo 

aumento della difficoltà 

routine di fine partita 

divoratore colpito! 

controllo su frutti e animale 
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32 


150 


185 


PRINT AT 0,0; 
INK 7;"CD: PUNTI 


PAPER 0; 
eee Dal 
4; PAPER 0; INK 7;a$;":PUNT 
I nat 

RETURN 

REM fase 1***X***X*XXXXXXXX***%* 


PRINT AT 10,20; 
FLASH l;"FASE 1": 
500 

PRINT AT 10,205". 7 
h-16,0:* RA" 
RETURN 

GO SUB 31 

GO SUB 40 

REM programma principale*** 


INK 2; 
GO SUB 2 


LET g=INT (RND*20) 

IF g=0 THEN LET g=15 

IF g=1 THEN LET g=2 

FOR h=j TO 0 STEP -l 

IF g=p AND h=6 THEN LET i= 
i+50: GO SUB 2090 

IF g=e AND h=8 THEN LET i= 
i+50: GO SUB 2100 

IF g=z AND h=12 THEN LET i 
=i+50: GO SUB 1980 

IF g=s AND h=10 THEN LET 1 
=i+50: GO SUB 2050 

PRINT AT g,h; INK 0; "CD Last 
BEEP .009,40: BEEP .009,20 
° PRINT AT g,h; INK 0;"GE " 


IF h=2 THEN . LET i=i+50: 

GO SUB 902 

IF r>=m AND r<x THEN. LET ]j 
=22: LET r=r+60: 
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GO TO 2899: 


187 


188 


190 
199 


200 


210 


255 


2.15 
310 
320 
350 


880 
881 
882 


883 


884 
885 
888 
889 


891 
893 


895 
896 
900 
901 


902 
903 
905 
910 
915 
969 


970 
980 
990 
1000 


IF r>=k AND r<u THEN LET j 
=16: LET r=r+60: GO TO 3300 


IF r>=q AND r<n THEN LET j 
=10: LET r=r+60: GO TO 3500 


IF r>=d THEN GO TO 1500 
IF i>=1000 AND i<=1050 
THEN LET i=i+100: LET ts=t 
-l: BEEP 1,0: BEEP 1,10: 
BEEP 1,-10: GO TO 888 
IF INKEYS="0" THEN 

GO SUB 8997 
IF g=a AND h=b+1 THEN 

LET i=i+100: LET ts=st.-1: 
GO TO 882 

LET a=a+(INKEY$="6")-( 
INKEY$="7") 

IF a<2 THEN LET a=2 

IF a>l19 THEN LET a=19 

IF a<l THEN LET a=l 
PRINT AT a,b; INK l;"M"; 
AT a+l,b;"Q";AT a-l,b;" " 
AT a+2,b;" " 
NEXT h 
GOUTO 50 
REM il divoratore ti urta** 


PRINT AT a,b; INK 2; 
FLASH l;"M";AT a+l,b; 
INK 2; FLASH l;"Q" © 
FOR 1=30 TO -20 STEP -3 
BEEP 0.009,1: NEXT 1 
GO SUB 30 
IF t=3 THEN PRINT AT 12,0; 
" "AT 13,0%" " 
IF t=2 THEN PRINT AT 8,0;" 
"ei > FÉ dg n 
IF t=1l THEN 
“":AT - PU FÀ " 
IF t=0 THEN GO TO 4200 
PRINT AT g,h;j" " 
GO TO 50 
REM il divoratore mangia*** 


PRINT AT 4,0;" 


FOR 1=45 TO 0 STEP -3 

BEEP .009,1: NEXT 1 

PRINT AT g;h;" " 

GO SUB 30 

GO TO 50 

REM dati per la grafica**** 


FOR u=0 TO 143 i 

READ a: POKE USR "a"+u,a 
NEXT u 

DATA 126,126,126,60,126,102 


1100 
1104 


1110 
1120 


1130 


198,231 

DATA 0,0,0,0,16,28,255,224 
DATA 40,127,255,15,31,63,10 
0,8 


DATA 1,226,244,248,240,240, 


32,64 
DATA 0,224,240,255,240,240, 
32,16 
DATA 0,0,40,127,255,BIN 10 


+L0Ll1bEz255p127 


1141 
1150 
11583 
1156 


RC, 
1159 


1160 
1161 
1165 


1170 
LIETS 


1180 
1200 
1290 
1291 
1292 
1293; 
1294 
1295 
1296 
1297 


1298 
1299 


DATA. 40;127,.255,255,255,127 
i&br2 
DATA 
28 
DATA 
0,24 
DATA 
226 
DATA 0,12,4,15715,3L#47;71 
DATA 0,96,32,254,255,BIN 1 
1110101,;3255,254 

DATA 60,255,90,60,36,255,18 
9,189 

MER 1,30,58,118,238,220,24 
8,312 

DATA 8.8,24,36.102.255,255, 
102 

DATA 0,0,;0;0;0,0;2047,0 

DATA 189,189,60,102,102,102 
+ O AL 
DATR*650,;255,58,63,60,62,127 
127 

RETURN 

REM introduzione*********** 


4,107,107,28,62,62,62, 
xa,8p110,255,255,126,6 


0,0,0,224,240,248,244, 


BORDER 7: PAPER 7: INK 0: 
CLS 

IF INT (PEEK 23658/8)=2* 
INT (INT (PEEK 23658/8)/2) 
THEN GO TO 1294 

GO TO 1295 

POKE 23658,PEEK 23658+8 
PRINT AT 10,0;"Vuoi le istr 
uzioni? (s/n)" 
IF INKEYS="N" 
GO TO 1390 

IF INKEYS="S" THEN CLEAR: 
GO.TO.1299 

GO TO 1296 

PRINT AT 0,0; INK 2; n 

AFKKKKAKKAKKAKAKKAKKAKAKKAKKAKAKKAKKAKAAKAKAAAKA 

*EREEN:AT 9,05 INK 2; 

UKKKAKKKAKKAKKKAKKKKAKKKAKKAKKKAAK 


THEN CLEAR: 


KKKKKKKA KARA AT TE7O: 


INK 2; ULTI, 
KAKKKAKAKKAKKAKKAKKAKKKKAKKKAKKKAKKAKKAKKAKKAKAKKAK 


1300 


1310 


1349 


1350 


135% 


1353 


1360 


1362 
1370 


1375 


kK 
PRINT AT 2,0; INK l;"Impedi 
te al divoratore std 
i mangiare la vostra frutta 
i Avete quattro vite, ma 
ne perderete una ogni 
1000 punti totalizzati d 
al divoratore, o selo urter 
ete." 
PRINTSAT },0; INK lp"Cicso 
no quattro fasi, ognuna 
piu' difficile della preced 
ente.Si ripeteranno per ogn 
i 1000 punti che totaliz 
zerete." 
PRINT AT 20,5; 
FLASH 1; "PREMI 
TINUARE" 
PAUSE 50. 
PRINT AT 20,0, (ENDAarMI; 
AT 21,0; INK lys"@*BAUSE:5 
0: PRINT AT 20,0; INK 1l;"R" 
SAT 20,1; INR<1;tB6"%yAt:--2F,0 
; INK. l;"A";AT 20,2;"PPPPPP 
PPPPPPPPPPPPPPPPPPPPPP": 
BEEP .09,0: BEEP .09,10 
PRINT AT 20,1;" 


INK 0; 
'c* ;:PER CON 


“<A 200; 
INK lj;"M";AT 21,0; INK l;" 
Q": PAUSE 20 
IF INKEYS="C" 
AT:20:50 3: 1 aND21b:70 
GO TO 1370 
GO TO 1349 
PRINT AT 2,0; INK 0;"Guadag 
nerete 10 punti per ogni d 
ivoratore che distruggerete 
î 10 punti se colpirete u 
no dei quattro frutti che 
appaiono a caso, ed ot 
terrete un bonus di60 punti 
per ogni fase superata" 
PRINT AT 11,0;"Poiche', spe 
cialmente durante leprime f 
asi, il compito del di 


THEN PRINT 
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1376 


voratore e' piu' difficile 
delvostro, esso guadagnera' 
50 punti per ogni f 


-ruttos 50 punti se ri 
esce a superarvi, 100 punti 
se vi colpisce" 

PRINT AT 21,5; INK 23; 
FLASH l;" PREMI 'g' PER G 
IOCARE " 


ei 
1378 


1384 


1385 
1386 
1388 
1390 


PI9IT 
1392 


1393 
1394 
1395 


1396 
L397 


1398 
x399 


1400 


1401 


1402 
1403 
1405 
1407 
1409 


FOR a=2 TO 0 STEP -1 
PRINT AT 21,a;"CD ": BEEP . 
09,26: PRINT AT 2l,a;"GE ": 


BEEP .09,30 

IF INKEY$="G" THEN GO TO 1 
390 

NEXT a 

PRINDINP25p70;" " 

GO TO 1376 

BORDER 4: PAPER 6: INK l: 
‘CLS 


FOR a=0 TO 21 STEP 1 

PRINT AT a,0; INK 0; "BUONA 
FORTUNA BUONA FORTUNA" 
: BEEP 
NEXT a 
FOR a=21 TO 0 STEP -l1 
PRINT AT a4,0;" 


03 7% 


Wo 

BEEP 

NEXT a 
PRINT AT 0,0; 
PAPER 0; "CD 


.+03,a 
INK 7; 


RB";AT 10,0; 

INK 0; PAPER 6; "IL TUO NOM 
E, PER FAVORE";AT 3,0;" SU. 
SAI GIU'*...6 FUOCO... 
0). 

INPUT a$ 
PRINT AT 10,0;" 

“AT 3,0 


ol 
r - 
" 

LET da=1000: 
LET x=31l1: 
LET u=551l: 
LET n=85l1: 
O::: LET t=4 
PRINT AT 4,0;"M";AT 5,0;"0" 
FAT 8,0;"M";AT 9,0;"0O";AT l 
dA 3, 0; "AT 16,0 
"o sAT Ti, 0; t9* 

FOR a=l TO 21 STEP 2 
PRENT:AT eb INC 21" 
NEXT a "E 
FOR a=2 TO 20 
PRINT AT a,l; 


LET m=260: 
LET k=500: 
LET q=800: 
LET i=0: LET r= 


STEP 2 
INK 4;"H" 
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NEXT.a 


GO SUB 
GO SUB 
GO SUB 2050 

GO SUB 2100 

FOR a=0 TO 21 STEP 1 

GO TO 10 

REM reiniz. fasi********%* 
LET m=m+1000: LET x=x+1000: 
LET k=k+1000: LET u=u+1000 


2090 
2000 


LET d=d+1000: 
LET n=n+1000 


LET q=q+1000: 


‘FOR w=21 TO l STEP -1 


PRINT AT w,14; PAPER 6;" 
": BEEP ".03,; 
W 
NEXT w 
PRINT AT-=g.,hy, S.S: /2/bre" 


Se RP a+l,b;" " 
GO TO 10 
REM frutti a caso********** 


GO SUB 30 

LET z=INT (RND*17)+2 
BEEP .01,30 

IF z=1 THEN LET z=15 


PRINT AT 2,12; INK 1;"O0" 
RETURN 


GO SUB 30 

LET s=INT (RND*19) 
BEEP .01,30 

IF s=0 THEN LET 1ls=6 


IF s=1 THEN LET 1s=18 
PRINT AT s,10; INK 4;"H" 
RETURN ì 


GO SUB 30 

LET p=INT (RND*19) 
BEEP .01,30 

IF p=0 THEN LET p=7 


IE p=1 THEN LET p=13 
PRINT AT p,6; INK 0;"N" 
RETURN 

GO SUB 30 

LET e=INT (RND*19) 

BEEP .1,30 

IF e=0 THEN LET e=6 

IF e=l THEN LET e=18 
PRINT AT e,8; INK £ 200 dg 
RETURN 

REM cambio fase*X**KKKXXXxX%* 


FOR 0=-30 TO 50 STEP 2 
BEEP .05,0 

NEXT O 

RETURN 


REM fase 2****X*XXXXXXXX*XXXX% 


2900 


2902 
2930 
2940 
3000 
3001 
3002 
‘3010 


3020 
3030 
3300 


3302 
3305 


3306 
3309 
3310 
3320 
3330 
3340 


3345 
3350 
3500 


3510 
3520 


3530 
3540 
3550 
3560 
3570. 
3580 


3590 
3600 
4199 
4200 
4205 
4206 
4207 
4208 
4210 


4213 


4215 


PRINT AT 21,10; INK 2; 
FLASH l;"FASE 2" 

GO SUB 30 

GO SUB 2500 

PRINT AT 21,10;" n 

PRINT AT g,h;" " 

LET v=20 

FOR w=255 TO 200 STEP -l 

PLOT w,0: INK 4: DRAW 0,167 

: BEEP .009,-20 

NEXT w 


GO TO 50 
REM fase COTTTTTTTTTTTTITTE: 


GO SUB 30 

PRINT AT 21,10; INK 2; 
FLASH l; "FASE 3" 

GO SUB 2500 

PRINT NÎ°21,10;* 9 
PRINT AT g,h;" " 

LET v=14 

FOR w=200 TO 152 STEP -l1 
PLOT w,0: INK 4: DRAW 0,167 
° BEEP .009,-20 

NEXT w 


GO TO 50 
REM fase Munari azi ninna 


GO SUB 30 

PRINT AT 21,10% INK 2; 
FLASH 1; "FASE 4" 

GO SUB 2500 

PRINT AT 21,103; tà 

PRINT AT g,h;" " 

LET v=10 

FOR w=155 TO 120 STEP -l 

PLOT w,0: INK 4: DRAW 0,167 
° BEEP .009,-20 

NEXT w 

GO TO 50 

REM hai perso KKAKKAKAKAKAKAKKAKAKAKKAKAK 

BORDER 4: PAPER 6: INK 0: 
CLS 

FOR £=0 TO 

BEEP .01,£f 

NEXT £ 

BEEP 1,0: BEEP 1,-30: 
BEEP 1,0: BEEP 2,-30 

PRINT AT 9,0;" PECCATO, 
oli VUOI " 

PRINT AT 12,0;" GIOCARE DI 

NUOVO. +.!16! O_NO.. 


sata et i OT 


PRINT AT 0,0; PAPER 0;" 


-30 STEP -l 


Usa 


4218 
4220 


4230 
4240 
4885 


4888 
4999 
5000 


5005 
5006 
5008 
5009 
5010 
8888 


8997 
8998 


9000 
9002 
9006 
9007 
9008 
9009 
9010 
9021 
9022 


9023 
9025 


9030 


GO SUB 30 
IF INKEY$="G" THEN GO TO 6 
IF INKEY$="N" THEN STOP 


GO TO 4220 
REM hai COlpito**********X*%* 


BEEP .009,20 

FOR 1=0 TO 48 STEP 6 
PRINT AT g,h; INK 2;"KL": 
BEEP .009,1 Pira 
NEXT 1 

PRINT AT g,h;" " 

PAUSE 50: GO SUB 30 
PRINT AT a,b+1;" " 


GO TO 50 
REM EUOCOMWRA A AI 


PRINT AT g,h; 
PRINT AT a,b; 
AT a+l,b$ INK 
LET c=b+2 
FOR c=b+2 TO v STEP 5 
IF a=p THEN LET r=r+l10: 
GO SUB 2090 
IF a=e THEN LET r=r+10: 
GO SUB 2100 
IF a=s THEN LET r=r+l0: 
GO SUB 2050 
IF a=z THEN LET r=r+10: 
GO SUB 1990 
PRINT AT a,Cc; 
: BEEP .009,60 
PRINT AT a,c;" ti 
NEXT c 
PRINT AT a,b+1l;" " 
IF a=g THEN PRINT AT a,b+1l 
-GINK L3*B"a LET t=rt& 102 
GO TO 4500 
RETURN 


INK 0 s "pg 
INK l;"RB"; 
Le ns) stat 


INK 0; "PPPPP" 
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di James Thurbly 
trad. e adatt. di 
Marcello Spero 


Sempre più ostacoli tra il vostro 
tank e le basi nemiche. Per quanto 
riuscirete a farcela? 


s$ (21,31) 
tank 
dest 
“M 88299!0 dal quartier generale al stage 
comandante dei carri. Distruggete x,y 
le installazioni nemiche alla base... At- 


tenzione ... Il campo è disseminato di 
mine, trappole e crateri... Avete cinque 
carri... Buona fortuna.... 

Se riuscirete a portare a termine la vo- 
stra missione riceverete la giusta ri- 
compensa: un’altra missione ancora 
più densa di ostacoli da evitare, e con 
una maggior concentrazione di instal- 
lazioni nemiche! 

Per radere al suolo una installazione 
nemica tutto quello che dovrete fare è 
passarci sopra con il vostro carro: un 
sistema semplice ma efficace! Una vol- 
ta che tutte le installazioni siano state 
distrutte vi sarà ordinato di tornare alla 
base. Al termine del gioco verrete va- Linee 

lutati sulla base della vostra abilità. 100-127 

Si tratta di uno di quei giochi semplici 130-200 
ma terribilmente appassionanti che 1005-1990 
compaiono di tanto in tanto. Il control- 2000-2990 
lo del carro non è facile come sembra, 3000-3140 
ed un attento tempismo nella pressio- 4000-4060 
ne dei tasti è essenziale. 7900-7930 
Il vostro carro risponderà al tasto ‘“q” 9000-9190 
andando verso l’alto, al tasto “z” an- 
dando verso il basso, al tasto “7” an- 
dando verso sinistra ed al tasto “8” an- 
dando versQ destra. Prima di iniziare a 
giocare controllate che il CAPS LOCK 


Campo di battaglia 
Versione per ZX Spectrum 16K/48K 


100 REM main 

110 GO SUB 9000 

120 GO SUB 7940 

125 PRINT AT a,b;t$: PAUSE 10 

127 LET n$="8" 

130 LET mS=INKEYS 

135: IF m$<>"": THEN: ‘GO SUB: 10 
00 

140 IF m$="" THEN LET m$=n$f: 
PRINT AT a,b; INK 7;tS$: 
PAUSE 5: GO SUB 1000 
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‘sia disinserito, poiché vengono ricono- 
sciute unicamente le lettere minusco- 
le. Ma perché non provare, così) per 


Descrizione delle variabili 


insieme contenente la mappa dello schermo 

numero di carri rimasti 

numero di installazioni nemiche distrutte 

fase del gioco 

numeri casuali usati per stabilire la posizione degli osta- 
coli 

carattere grafico del carro, diverso a seconda della dire- 
zione 

posizione del carro (riga, colonna) 

precedente posizione del carro 

numero di installazioni nemiche distrutte durante una 
fase 

direzione di movimento del carro 

valore del tasto premuto, per il cambio di direzione 
variabile di controllo dei cicli iterativi 

livello raggiunto dal giocatore 

valori di durata e nota per il BEEP 

stringa contenente risposte alle domande fatte dal pro- 
gramma 


Descrizione del programma 


Commento 

routine di inizializzazione 
programma principale 

movimento del carro 

controlli 

routine di carro distrutto e fine gioco 
routine di fase completata 
inizializzazione di tutte le variabili 
istruzioni e costruzione UDG 


esercizio, a convertire il programma 
affinché funzioni sia con che senza 
CAPS LOCK? 


150 GO SUB 2000 

200 GO TO 130 

1000 REM movimento carro 

1005 BEEP .01,5: BEEP .01,5 

1008 IF m$<>"q" AND m$<>"z" 
AND m$<>"8" AND m$<>"7 
" THEN LET m$=n$ 

1010 LET a=a+(m$="z" AND a<21)-( 
m$="q" AND aòl) 

1020 LET b=b+(m$="8" AND b<31)-( 
m$="7" AND b>l) 

1040 LET t$=("A" AND m$="q")+("B 
" AND m$="z")+("C" AND m$s=" 
8")}+(*D° AND m$="7") 


1050 
“P0SS 
1060 
1070 
1990 


2000 


2010 


2020 


2030. 


2040 


2045 


2047 
2050 


2060 


2070 
2080 


2085 


2090 


2100 
2110 


PRINT AT a,b; INK 7;t$ 


PRINT AT al,bl; INK 4;" " 
LET al=a: LET bl=b 
LET n$=m$ 
RETURN 
«REM check 
IF s$(a,b)=" " THEN 
GO TO 2990 
IF s$(a,b)="G" THEN FOR f= 
i TO 5: SEEP 14,20: BEEP. , 


05,-203: MEXT £: PRIMATO, 
0; FLASH l; BRIGHT l; INK 0 
3" UNA TRAPPOLA ANTICARR 
011! ": GO SUB 3000: 
GO TO 2990 
IF s$(a,b)="L" OR s$(a,b)=" 
H" OR s$(a,b)="I" OR s$(a,b 
)="I" OR s$(a,b)="K" THEN 
FOR f=1 TO 10: BEEP .0l,-1 
5: BEEP .05,-17: BEEP" .01,- 
19: NEXT £f: PRINT AT 0,0; 
FLASH 1; BRIGHT l; INK 0;" 
SEI CADUTO IN UN CRATERE 
fi 00 SUB 3000: 


GO TO 2990 
IF s$(a,b)="E" THEN FOR f= 
1 TO 5: BEEP .l,-20: BEEP . 


1i=>19: BEEP .1,-18: NEXT £: 
PRINT AT 0,0; FLASH l; 


BRIGHT l; INK 0;" HAI U 
RTATO UNA MINA!!! bat 
GO SUB 3000: GO TO 2990 


IF s$(a,b)="M" AND res>=sta 
ge*2 AND m$<>"8" THEN 

GO SUB 4000 

IF s$(a, Di oaito THEN 


GO TO 299 
IF s$ (a sb) s'e" THEN 


PRINT AT 0,0; BRIGHT l; 
INK 0;" INSTALLAZIONE DI 
STRUTTA!!! ta 


RESTORE 2070: FOR £f=1 TO 8: 
READ c,d: BEEP c,d: NEXT £f 


batai2315;:3015;213,16,.3,1 
5..3,17,+3414532,13:45712 
LET dest=dest+1: LET s$(a,b 


)=" o" 


PRINT AT 0,0; PAPER 4;" 


GO SUB 8200: LET res=res+l: 
IF res<stage*2 THEN 
GO TO 2990 
REM tutti distrutti 
PRINT AT 0,0; FLASH ll; 
INK 0; PAPER 7; "TUTTO DIST 
RUTTO! TORNA ALLA BASE" 


2990 
2999 
3000 


3010 
3020 


3030 


3040 


3050 
3060 
3070 
3080 


3090 


RETURN 

REM il carro e' distrutto 

FOR £f=1 TO 400: NEXT £: 

PRINT AT 0,0; PAPER 4;" 

IL CARRO E' DISTRUTTO!!! 
" 


LET s$(a,b)=" " 
PRINT..AT a,b;" ": LEStamio: 
LET b=l: LET al=a: LET bl= 
bs: PRINT'AT. avb}"C":: LET t$ 
="C" 3A, 
LET n$="8": LET tank=tank-1 
FOR f=l TO 300% 
PRINT AT 0,0; 


NEXT f: 
PAPER 4;" 


GO SUB 8200 

IF tank>0 THEN GO TO 3140 
REM fine gioco 
CLS : PRINT AT°2;14;"PINE"- 
AT 5,3; "DISTRUTTI" *("A" 

AND dest=1);("E" AND (dest 

>l OR dest=0));" ";dest;" I 
NSTALLAZION"; ("E" AND dest= 
1);("I" AND (dest>l OR dest 
=0)) 
LET r$=(" RECLUTA" AND dest 
<10)+(" ALLIEVO" AND dest 
>=10 AND dest<20)+(" PILOTA 
" AND dest>=20 AND dest<30) 
+(" COM. DI CARRO" AND dest 
>=30 AND dest<50)+(" COM. D 
I SQUADRONE" AND dest>=50 

AND dest<70)+(" CAMPIONE" 

AND dest>=70) 
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3100 


3105 


3110 
3120 


3130 
3140 
4000 
4010 
4020 


4030 


4035 


4037 


4038 


4040 
4050 
4060 
7900 
7910 
7920 
7930 
7940 
7950 
7960 
7970 
8000 
8010 
8020 
8030 
8040 


PRINT AT 10,0; "HAI RAGGIUNT 
O LA QUALIFICA DI"''TAB 7;r 
$ 


RESTORE 4035: FOR f=1 TO 44 
: READ c,d: BEEP c,d: 

. NEXT f 

INPUT "giochi di nuovo? (s/ 
o) “ LINE #0. 

IF z$="s" THEN RUN 120 
STOP. 

RETURN 


REM stadio completato 

CLS 

PRINT AT 5,2; FLASH l;"stad 
io ";stage;" completato.... 
" 


RESTORE 4035: FOR f=1 TO 44 
° READ c;d:- BEEP c.d: 

NEXT f 

DATA: 4514 +1,17,.25,19,.4 
è21,040g08,070;070,0,.1,14,. 
2,17, .29y49y 6; 21 

DATA 0;0#070;0g0,%1,14,).2,1 
11:25 59 gip 7 Ia 
r021174+3310;070703:0, 07062 
eb7a: 2187109016, albi 3,17 
pind:21., 42,04) 19 

DATA 0,0,0,0,0,0,.3,17,.4,1 
9,35,21,.5,;4100c95g 88,09 ,16, 
7044 
GO SUB 8000 

LET n$="8" 

RETURN 

REM calcolo coord. schermo 
LET x=INT (RND*20)+1 

LET y=INT (RND*30)+1 

RETURN 

REM inizializzazione 
LET tank=5 
LET dest=0 

LET stage=0 
LET stage=stage+l 
DIM s$(21,31) 
BORDER l: PAPER 4: 
FOR f=1 TO stage*5 
GO SUB 7900: LET s$(x,y)="E 
": PRINT AT x,y; INK 1;"E". 


CLS 
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8050 
8060 


8070 


8100 
8110 


8112 


8115 


Si17 


8120 
8130 


8140 


8160 
8200 


8210 


8220 
8230 
9000 
9010 


9020 


9030 


9040 


9100 
9110 


GO SUB 7900: LET 
": PRINT AT x,y; 
GO SUB 7900: LET 
"3: PRINT AT x;Y; ENG. 8; "IL? 
GO SUB 7900: LET s$(x,y0° 
TO y+1)="HI": LET s$(x+l,y 
TO y+1)="JK": PRINT AT x,y 
$- INK--0;"HI";AT x+L,ys 
INK 0;"JK" 
NEXT £f | 
FOR £=1 TO stage*2: 
GO SUB 7900 
IF S$(x,y)="E" THEN. 
GO SUB 7900: GO TO 8112 
IF x<12 AND x>8 AND y<4 


S$(x,y)="G 
INK 2$ al 
S$(x,y) ="L 


THEN GO SUB 7900: GO TO 8 
bl 5 

LET s$(x,y)="F": PRINT AT x 
rYìs TINK.bp5 "Pa NEXT. £ 

LET sato” bei 

LET a=l0: LET b=1l: LET al=a 
° LET bl=b 
LET res=0 


PRINT AT 10,0;"M" 

PRINT AT 0,20;"" " 
° FOR f=1l TO tank-l: 
PRINT AT 0,20+£*2; 

A": NEXT f 

FOR f=9 TO ll: PRINT AT f,l1l 
pg” "e: LET.-094ÉE,1-T0-d) e" 

Ss NEXT £ 

LET s$(10,1)="M" 

RETURN 

REM istruzioni 

PAPER 0: INK 7: BORDER 0: 
CLS : PRINT AT 0,7; "CAMPO 

DI BATTAGLIA"; OVER l;AT 0, 
Ver $i 
OVER 0. 

PRINT AT 2,0;"In questo gio 
co sei al comando di un ca 
rto; dovrai attraversareil 
campo di battaglia per 

distruggere le installazi 

oni nemiche" 

PRINT. ': INK.5s"I: controlli 
del carro sono: " 

PRINT '"q per muovere ver 
so l'alto"'"z per muovere v 
erso il basso"'"8 per muove 
re verso destra"'"7 per muo 
vere verso sinistra" 

REM costruzione UDG 

RESTORE 9120: FOR b=1 TO 13 
° READ z$: FOR £=0 TO 7: 
READ a: POKE USR z$+f,a: 
NEXT £f: NEXT b 


INK 0;" 


9120 DATA "A",16,146,186,254,254 
254, 186:130;"B" 130, 19625 
4,254,254,186 ,146,16,"C" ,25 
A.:5 69124 41:21 L24,56,2540;" 
D",127,28,62;254,62 405121; 
0 

9130 DATA "E",0,0,0,16,124,254,2 
54.0,"F",112,;76,60, POg4iz,0 
4,64,64,"G",0,16,56,124,124 
1254,254,254 

9t40- DATA “H" ,0,6,)}5,31,63,33,31 
2151 *,48,124,254,255,254, 
254,254,252,"3"63,63,603,31 
sdli7,ia 0,285 ,255,254,2 
Ci 2520249 L76432 "LL" 16,12 
4255255, 255,126, 28,716, "M" 
2,1420714, 2,2,2,2 

9150 PRINT INK 6;'"Attento alle 


mine E, alle tr 

appole anticarro G, ed 
ai crateri L HI";TAB 1l6;"J 
K" 


9160 INPUT "Sei pronto per inizi 
are? "; LINE Z$ 
9170 INK O 


‘9180 RETURN 


_ novita 


IL LIBRO DEL n 
MICRODRIVE SPECTRUM 
di AN LOGAN 


L'autore; un'autorità nel campo dei computers 
Sinclair, offre una spiegazione accurata di questo 
sistema di memorizzazione ad alta velocità: come 
funziona, il suo potenziale per il BASIC e 
Linguaggio Macchina, le possibili applicazioni nel 
campo educazionale e nel lavoro. Il libro 
comprende anche pragrammi dimostrativi ed una 
trattatazione completa sull'Interface I. pag. 146 


Cod. 9001 


er-_-————---———— > 


Cedola di commissione libraria da inviare a: 
JCE - Via dei Lavoratori, 124 - 20092 Cinisello B. - MI 


po Prezzo Prezzo 
IL LIBRO DEL 
MICRODRIVE SPECTRUM L. 16.000 


Desidero ricevere il “LIBRO DEL MICRODRIVE SPECTRUM?” indicato nella ta- 
bella, a mezzo pacco postale, al seguente indirizzo: 


il | 


Cognome 
Via 


| 
| 
| 
| 
I città 
| 
| 


E DE ESESO SESSO 
Desidero ricevere la fattura 


Partita I.V.A. o per i privati Codice Fiscale 


LI 


PAGAMENTO: 

O Anticipato, mediante assegno circolare o vaglia postale per l'importo 
totale dell’ordinazione 

O Contro assegno, al postino l'importo totale 

AGGIUNGERE L. 2.000 per contributo fisso spedizione. Il prezzo è comprensi- 

vo di IVA. 


edizioni 
J Ce Via dei Lavoratori, ga AFTOnE. mis -53 


20092 Cinisello Balsamo - MI 


locali ___L__d_d 


di Gary Moore 
trad. ed adatt. di 
Marcello Spero 


Se credete che l’allunaggio sia una 
cosa semplice... tenetevi forte! 


i tratta di una particolare versione 
Ste popolare gioco. Come nell’ori- 
ginale, anche qui sono usate una visio- 
ne generale ed una ravvicinata del pae- 
saggio e del modulo, a seconda della 
sua distanza dalle montagne. 

Scopo del gioco è far atterrare (alluna- 
re?) il vostro modulo su tutte e cinque 
le piazzole, indicate sullo schermo con 
delle X lampeggianti. Non ci sono 
istruzioni nel programma, per consen- 
tirgli di stare nei 16K. Ecco perciò un 
breve schema di gioco. 

Usando il tasto ‘‘9” per la spinta, ed i 
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mod” 


jo 1" 


tasti ‘7’ e “8" per ruotarlo dovete gui- 
dare il modulo verso un morbido atter- 
raggio su una delle piazzole. Se riusci- 
rete ad atterrare su tutte e cinque le 
piazzole il gioco ricomincerà, ma ad 
un livello di difficoltà più elevato. Non 
appena avrete dato RUN vi apparirà 
sullo schermo una distesa montuosa, 
dove saranno indicate le cinque piaz- 
zole di atterraggio. Quando, durante la 
manovra di discesa, vi troverete ad es- 
sere al di sotto di una certa distanza da 
una piazzola, il paesaggio si trasforme- 
rà in una visione ingrandita della zona 
di atterraggio con i suoi immediati din- 
torni. Perché il vostro atterraggio ab- 
bia successo la velocità di discesa del 
modulo dovrà essere uguale o inferio- 
re a 10; potrete tenere sotto controllo 


(30) 
LET 
LET 
LET 
LET 
LET 


40: 


le 


1s=9530: 
d=0: 
col=10: 
gs=147: 
s=0 
60 GO SUB 9500 
70 PRINT AT 14,4; 
DI AO. ESRI MR 
ATEO 2456 "X"TRT 19,240 "x" 
100 REM {SG5}programma principa 


110 .INK 7 i 

135 PRINT AT:0r0;- INVERSE 1; 
INK 61" 00107/ Vaart. 1": v8i 
TAB::3L5AT-0,156"velforitz.: 


are VI IE I II I O E NE | 


questo valore per mezzo dell’indicato- 
re apposito, che darà valori negativi se 
il modulo si muove verso l’alto, positi- 
vi se scende. La velocità orizzontale, 
invece, è positiva se il modulo si spo- 
sta verso destra, negativa se si sposta 
verso sinistra. Se atterrate una secon- 
da volta sulla medesima piazzola vi 
verrà ingiunto di decollare immediata- 
mente: se non obbedirete ne paghere- 
te le conseguenze. Riuscendo ad atter- 
rare su tutte le cinque piazzole otterre- 
te un bonus, dipendente dalla quantità 
di carburante che vi sarà avanzata, un 
ulteriore modulo, e il pieno dei serba- 
toi. A questo punto non vi resterà che 
ritentare l’atterraggio sulle cinque 
piazzole, che ora sarà più difficile, es- 


‘sendo più rapida la velocità di caduta. 


Modulo lunare 
versione per ZX Spectrum 16K/48K 


10 REM set 
20. PAPER 0: BORDER 144 E 
INK 4 i 


30 LET lv=.5: IMI see00:. LET z2= 
3: LET Leo: 
LET hs=21 
35 GO SUB 9000 
36 LET pd=0: 


LET vs=30: 


LET £=3000: DIM c 


LET h=0: 
LET linea=2: 


LET der=3: 
LET giu=4: 


FLASM LyPx"» 


Descrizioni delle variabili 


livello di gioco 

punteggio 

numero di moduli rimasti 

misura il tempo fra due bip 

velocità verticale 

velocità orizzontale 

numeri di piazzole su cui siete già atterrati 
carburante rimasto 

valore di RESTORE per i dati relativi allo scenario 
numero di riga della piazzola nella visione ingrandita 
numero di colonna della piazzola nella visione ingrandi- 
ta 

numero di riga per il modulo 

numero di colonna per il modulo 


zero 

codice del carattere che rappresenta il modulo 
positivo = il modulo scende 

negativo = il modulo sale 

è zero nel modo normale, 1 in quello ingrandito 

se c (linea,col) = 1 vuol dire che siete già atterrati su 
questa piazzola 

precedente posizione del modulo (riga) 

precedente posizione del modulo (colonna) 


Descrizione del programma 


Linee 
10-70 
100-410 
115 

116 

120 

125 
130-145 
150-155 
160-180 
190 


200-210 
220 
230 
235-250 
290 
400 
410 
500-580 
600-696 


700-795 
800-895 
900-940 
950-960 


9000-9060 
9500-9999 


9530 
9540 
9550 
9560 
9570 
9580 


Commento 

inizializzazione variabili 

programma principale, così diviso: 

stampa delle informazioni 

controllo dell’atterraggio 

stampa del modulo 

controllo per la caduta 

aggiornamento della posizione di stampa 
aggiornamento dei movimenti orizzontale verticale 
scelta delle posizione da far assumere al modulo 

se il tasto “9” è premuto, viene sottratto 10 dal carbu- 
rante 

se il modulo è ai limiti dello schermo GO TO 700 
limitazione della salita del modulo 

aggiornamento delle velocità, orizzontale e verticale 
controllo per il cambio di scenario 

se il carburante è esaurito, GO TO 950 

cancellazione del modulo 

ritorno all’inizio del programma principale 
ingrandimento del paesaggio 

controllo per atterraggio, caduta, piazzola vietata e nu- 
mero di atterraggi effettuati 

nel modo ingrandito, se il modulo si trova al limite dello 
schermo, disegno di un nuovo settore di paesaggio 
visualizzazione della caduta; se non sono rimasti altri 
moduli la partita termina 

sono stati effettuati tutti e cinque gli atterraggi: bonus e 
nuovo inizio ad un livello superiore 

routine di “carburante esaurito” 

grafica per il modulo 

dati per il paesaggio 

dati per iniziare il disegno 

dati per il paesaggio ingrandito intorno alla piazzola 1 
dati per il paesaggio ingrandito intorno alla piazzola 2 
dati per il paesaggio ingrandito intorno alla piazzola 3 
dati per il paesaggio ingrandito intorno alla piazzola 4 
dati per il paesaggio ingrandito intorno alla piazzola 5 


GRUPPO 
EDITORIALE 
JACKSON 
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116 


120 
125 


330 
140 
145 


150 


+85 


160 
170 
180 
190 
195 


200 
210 


220 
230 


235 


CERTA 


250 


270 


2795 
280 


290 
400 
410 


“+hSjTAB-3L:40:-INVERSE L; 
INK 6;AT 0,0; "carburante: 
VI EPTABC25L"D <> 200-313 
IF INT linea=h-2 AND (INT c 
ol=d OR INT (col+.5)=d) 
THEN GO TO 600 
PRINT AT linea,col;CHR$ gs 
IF ATTR (linea+SGN vs,col+ 
SGN der)=4 OR ATTR (linea,c 
Ol+SGN der)=4 THEN GO TO 8 
00 i 
LET pc=col: LET pl=linea 
LET col=col+SGN der 
LET linea=linea+lv*SGN vs* ( 
ATTR (linea+SGN vs,col) 
<> 132) 
LET der=der+(INKEYS="9" 
AND gs=146)- (INKEYS="9" 
AND gs=144) 
LET giu=SGN (giu+(INKEY$="9 
" AND gs=145)- (INKEY$="9" 
AND gs=147)-giu*(INKEYS$="" 
DI 
LET gs=gs+(INKEYS$="7")-( 
INKEY$="8") 
IF gs=148 THEN LET gs=144 
IF gs=143 THEN LET gs=147 


IF INKEYS="9" THEN LET f=f 
-10 
IF INKEYS$="9" THEN BEEP .0 
8,20 


IF col>=30 THEN GO TO 700 
IF col>=0 AND col<l THEN 

GO TO 760 

IF linea=l THEN LET linea= 
2 

LET vs=vs+5+15*giu: 
der *7 

IF s<>0 THEN GO TO 250 
TH linaas=12? ANN s=0 THEN 


GO TO 505 

IF s=1 AND linea<=2 THEN 
SRESTORE 9530: LET col=(col 
/3.1)+22*(1s=9580)+19*(15s=9 
570)+11*(1s=9560)+6*(15s=955 


LET hs= 


0): LET LaWa35350: CLS: : 

INK 4: LET line=ll: LET s= 
0: GO TO 60 

IF 1=6 THEN BEEP .08,40: 
LET 1=0 
LET 1=1+1 

IF linea<=2 THEN LET linea 
=2 


IF f=0 THEN GO TO 950 
PRINT AT pl,pc;" ” 
GO TO 100 
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500 


520 


530 
540 


550 


REM {SG5}cambio scenario 
LET col=INT col 
LET 1s=9530+10*(col>0 AND c 
01<7)+20*(col>6 AND col<13) 
+30*(col>12 AND col<18)+40* 
(col>17 AND col<22)+50*(col 
>21 AND col<31) 
CLS * INK E LET Lineas2: 
RESTORE ls 
GO SUB 9500 
LET h=6*(col>0 AND col<7)4+2 
1* (col>6 AND col<13)+16*(co 
1>12 AND col<18)+9*(col>17 
AND col<22)+21*(col>21 
AND col<31) 
LET a=12*(col>0 AND col<7)+ 
9*(col>6 AND col<13)+12* (co 
1>12 AND col<18)+16*(col>17 
AND col<22)+6*(col>21 
AND col<31) 
PRINT. AT h,di. FLASH 1:"XxX" 
LET col=col-6*(col>21)-5*(c 
01>17)-5*(col>12)-6*(col>6) 


LET col=col*3,1: LET s=1 
GO TO 100 
REM {SG5}atterraggio 
IF gs<>147 OR vs>10 
THEN GO TO 800 
IF c(linea+col)<>l1 THEN 
GO TO 680 
PRINT AT 21,0; "ATTERRAGGIO 
VIETATO. VAI:.:VIa." 
FOR i=l TO 500 . 
IF INKEY$="9" THEN LET h=0 
° GO:TOG00 
NEXT i: GO TO 800 
PRINT AT 10,7;"ATTERRAGGIO 
PERFETTO";AT 11,6; "CONGRATU 
LAZIONI!" 
LET c(linea+col)=l: FOR i=l 
TO 4: FOR j=0 TO 10: 
BEEP ..08;j> NEXT j: NEXT<I 
° RESTORE 9530: CLS : INK 4 


LET sc=sc+100 

LET pd=pd+l: IF pd=5 THEN 
GO TO 900 i 

GO TO 40 : 
REM {SG5}superamento confin 


i 
IF 1s=9530 THEN LET col=l: 
GO TO 400 


‘LET 1s=1s+10 


IF ls=9590 THEN LET 1ls=954 
0 
CLS :: 


RESTORE ls: INK 4 


750 


760 


770 
780 


790 
PID 


800 
820 
830 
840 


850 


860 
870 
979 
880 
890 
895 
900 


905 
910 


920 
930 
940 
950 
960 


9000 
9010 


UNTATO": 


LET col=(1s=9540)+8*(1s=955 
0)+13*(15=9560)+18*(15s=9570 
)+22* (15=9580): GO TO 530 
IF 1s=9530 THEN LET col=29 
: GO TO 400 

LET ls=1s-10 

IF 1s=9530 THEN LET 1s=958 
0 i 

CLS : RESTORE ls: INK 4 

LET col=6*(1s=9540)+12*(1ls= 
9550)+17*(1s=9560)+21*(15s=9 
570)+29*(1s=9580): GO TO 53 
0 


REM {SG5}caduta 

PRINT AT linea-l,col-1l;"\[ 
"AP Linea ,c0l-L;"=*.";AT Ll 
inea+l.,col-1;""{:" 

BEEP .08,0: BEEP .08,5: 
BEEP .08,3 

PRINT AT linea-l,col-1l;" 
N:AT-.:tinea ,co0l-1;5 SERI 1 
inea+l,col-1;" Pe 

PRINT AT 10,7;"TI SEI SCHIA 

LET zez-1: IF 2=0 
THEN GO TO 870 

RESTORE 9530: PAUSE 200: 
CLS * INK 4: GO TO 40 

PRINT AT 2,10; "PUNTEGGIO: " 
; SC 

PRINT AT 15,13;"FINE*pAT 17 
’8;"premi un tasto" 


IF INKEYS<>"" THEN 

GO TO 880 

IF INKEY$="" THEN GO TO 89 
0 

RUN 


REM {SG5}fine gioco 


LET sc=sc+f 
CIS «+: INK 1: PRINT KT 5,13" 
BRAVO! SEI ATTERRATO SU TUT 


TE LE PIAZZOLE! IL TUO PUNT 
EGGIO E*":*AT 8,12; FLASH Ll; 
SC 

IF z=0 THEN . PRINT AT 12,3; 


"premi un tasto per iniziar. 


PAUSE 0: RUN 
LET lv=1v+.5 
CES :sAMNK #1 


e": 

LET z=z+l: 

PAUSE 200: 
GO TO 36 

PRINT AT 10,6; "CARBURANTE E 
SAURITO": LET z=0: PAUSE 20 
0 

GO TO 870 

REM {SG5}modulo 

FOR i=l TO 4: READ nf: 
FOR j=0 TO 7: READ n: 
POKE USR n$+j,n: NEXT ] 
NEXT i 


9020 
9030 


9040 


9050 


9060 
9500 
9510 
9520 


9530 


9540 
9550 
9560 
9570 
9580 


9999 


DATA "a",BIN 00000101, 
BIN 00001111,BIN 01101101 
,BIN 11111100,BIN 1111110 
O,BIN O1101101,BIN 000011 
11,BIN 00000101 

DATA "b",BIN 11100111, 
BIN 01000010,255,BIN 0111 
1110,BIN 00011000,BIN 001 
11100,BIN 00111100,BIN 00 
011000 


DATA "c",BIN 10100000, 
BIN 11110000,BIN 10110110 
BIN 00111111,BIN 0011111 
l,BIN 10110110,BIN 111100 
00,BIN 10100000 


DATA "d",BIN 00011000, 
BIN 00111100,BIN 00111100 
BIN 00011000,BIN Ollllll 
0,255,BIN 01000010,BIN 11 
100111 

RETURN 

REM {SG5}Moon 

READ x,y: PLOT x,y 

FOR n=0 TO 25: READ h,v: 
DRAW h,v: NEXT n 


DATA 0,31,16,0,46,32,8,0,8, 
8,16,-48,8,-8,8,0,8,16,16,8 
18,16,8,-16,8,0,2,8,2,0,4,8 
116,16,8,-24,8,8,8,0,16,-32 
RR DO dati 8, 16, Sogno, 
2h, 
DATA 0,31,48,0,48,96,24,0,2 
4,24,48,-128,24,-16,24,0,8, 


16,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0, r0,0,0,0 
70,50,0,0,0,:0,0,0,0,0 

DATA 0,153,48,-128,22,-18,2 
4,0,24,48,48,24,24,48,24,-4 
8,24,0,6,12,4,0,0,0,0,0,0,0 
10,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0 
DATA 0,31,48,24,24,48,22,-5 
6,24,0,76,12,6,0,6,24,48,48, 
24,-72,24,24,16,0,0,0,0,0,0 
r0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,50,;0;0,0,0,0,0,:0,0,0 

DATA 0,55,6,24,6,0,12,24,48 
r48,24,-72,24,24,24,0,48,-9 
6,24,0,32,104,0,0,0,0,0,0,0 
10,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0:0,0,:0,07,9,0,0 
DATA 0,103,40,-96,24,0,56,1 
20,24,-24,48,-24,24,48,32,- 
24:0,0,0,0,0,070,0,0,0,0,0; 
0,0,0,0,0,0,0,0,0,0,0,0,0,0 
r05050,0,0,0,0,0,0,0,0,0 
RETURN 
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di Paolo Agnelli 


Un gioco di balistica realizzato ap- 
plicando rigorosamente le leggi fi- 
siche 


U” volta caricato il programma e 
dato il RUN (se volete potete anche 
avere l’autostart digitando SAVE 
“combat” LINE 1) vi appariranno le va- 
rie opzioni a disposizione. Premendo 
Quest'ultimo consiste nel colpire col 
proprio carro armato il carro del com- 
puter, superando con i colpi un'alta 
montagna disegnata in modo casuale 
dal calcolatore. Potete anche, volendo, 
forare la montagna; ma vi assicuriamo 
che il compito richiede una notevolis- 
sima dose di pazienza... una volta inse- 
rita la velocità del proiettile e le coordi- 
nate - queste ultime come 
gradi/ENTER/primi/ENTER/secondi/ 
ENTER - aspetterete per qualche se- 
condo carico di suspence l'esito del vo- 
stro colpo. Se avrete colpito il carro, 
apparirà un messaggio di complimen- 
ti. 

La struttura del programma è chiara e 
consente facilmente modifiche e arric- 
chimenti di ogni tipo, dato che le uni- 
che linee “complicate” sono quelle che 
stabiliscono la traiettoria del proiettile. 


Combat versione per 
ZX Spectrum 16K/48K 


6 REM BY PAOLO AGNELLI 
INK 7 


10 BORDER l: PAPER l: 
20 CLS : CLEAR 


Linee 
10-90 
120-200 
210-260 


280-300 


310-420 


1000-1130 
2000-2040 
3000-3040 
4000-4050 


30 PRINT FLASH Ll;AT 8,4;" 


ISTRUZIONI 


40 PRINT FLASH 1l;AT 9,4;" pre 
mi <a>» per istruzioni " 
50 PRINT FLEASH l;AT 10,4;" pr 


emi <i> per iniziare 


60 PRINT FLASH Ll;AT 11,4;" pr 


emi <s> per finire 
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" 


tI ’ 
7A “a "$i 1, 
' tel: 


Pd 


Commento 

mostrano le opzioni e chiamano le rispettive subroutine 
disegnano la montagna e il piano di gioco 

eseguono il filling della montagna e rimandano alla rou- 
tine di definizione dei caratteri grafici 

posizionano e stampano i due carri armati 
inserimento e controllo dati, tracciamento della traiet- 
toria del proiettile 

routine di esplosione del colpo 

istruzioni 

caratteri grafici 

routine di commento a un colpo centrato 


70 IF INKEYS="a" THEN CLS: 


GO TO 2000 
80 IF INKEYs="i" THEN GO TO 1 
10 


90 IF INKEYS="s" THEN STOP 
100 GO TO 70 
L1:0: CLS 
120 DRAW 255,0 
130 LET a=0: LET b=0 
140 FOR n=1 TO 46 STEP 5 
150 LET k=INT (RND*80)+15 
160 IF n=46 THEN LET k=0 
170 PLOT a+100,b: DRAW n-a,k-b 


srad,prin,sec=653-_@-0B 


LET a=n: LET b=k 
NEXT n 
LET n=100 
FOR k=1 TO 95 
IF POINT (n,k)=l1 THEN 
LET n=n+1l: -GO TO 220 
IF n=147 THEN GO TO 270 
PLOT n,k 
NEXT k 
GO SUB 3000 
PRINT AT 21,1;CHR$ 144 
LET o=INT (RND*8)+3 
PRINT AT 21,21+0;CHR$ 160 
INPUT "vel. proiettile=";v 
INPUT "grad,prim,sec=";a;"- 
Mi tp Peo 
LET n=(((((a*60)+b)*60+c)/3 
600)*PI)/180 
LET g=9.81: LET t=.07 


LET x=INT (v*t*COS n)+15 

LET y=INT ((v*t*SIN n)-(.5* 

g*t*t))+8 

IF x<l OR x>254 OR y>174 
THEN GO TO 310 

IF y<8 OR POINT (x,y)=1 
THEN GO SUB 1000: GO TO 3 
10 

PLOT x,y: PAUSE 5: PLOT 
OVER lj;x,yY 

LET t=t+.07 

GO TO 350 

DIM a(16,2): LET r=l1 


IF y<8 THEN LET y=l 

BEEP .1,40 

FOR i=l TO l6 

LET a(i,l)=r*COS (RND*PI)+ 
x: LET a(i,2)=r*SIN (RND* 
PI)+y 


2010 


2020 


2030 
2040 
3000 


3010 


3020 


3030 


3040 
4000 
4010 
4015 
4017 

"4020 

4030 


4040 
4041 
4045 


4050 


IF a(i,1)<l THEN LET al(i,l 
)=0 


IF a(i,1)>254 THEN LET al(i 
vb)=artig 1) 6 

PLOT FLASH l;x,y: DRAW a(i 
rl)-x,a(i,2)-y 

LET r=r+l 

NEXT i 

FOR i=l TO 16 

PLOT INVERSE 1; FLASH 0;x, 
y: DRAW INVERSE l;a(i,l)-x 
ra(i,2)-y 

NEXT i 

IF y<8 AND x>=0*8+168 AND x 
<=0*8+176 THEN GO TO 4000 
RETURN 

PRINT "LO SCOPO DEL GIOCO E 
' QUELLO DI DISTRUGGERE IL 
CARRO ARMATO AVVERSARIO 
TRAMITE UN CANNONE ORIEN 
TABILE. PER IL TIRO VI 
VERRANNO RICHIESTI VELOCITA 
‘ DELPROIETTILE, INCLINAZION 
E IN GRADI-PRIMI-SECON 
DI." 

PRINT FLASH l;"premi un qu 
alsiasi tasto per contin 
uare i” 
PRINT INVERSE l;AT 16,8;"* 
** COMBAT ***" 

PAUSE 0 

GO TO 20 

RESTORE 3010: FOR z=0 TO 7: 

‘| READ p: POKE USR "a"+z,p: 
NEXT Z 

DATA 2,4,40,48,124,255,255, 
66 

RESTORE 3030: FOR z=0 TO 7: 
READ p: POKE USR "q"+z,p: 
NEXT zZ 

DATA 64,32,20.;14;127,255 12 
6,36 

RETURN 

FOR f=1 TO 8 

BEEP .2,f 

PRINT CHR$ 144;" "; 

PRINT CHRS 160;" "> 

NEXT f 

PRINT FLASH l;AT 7,l;" BER 

SAGLIO COLPITO,COMPLIMENTI 

" 

PRENT "ca ox 

PROENT PU <. ipa "Park 

PRINT INVERSE L;AT 18,8;"* 

**COMBAT* * *"! 

PAUSE 500: GO TO 10 
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di Brian Sides 
adatt. e trad. di 
Paolo Agnelli 


Niente più problemi per scrivere 
un diagramma di flusso: ci pensa il 
vostro Spectrum 


uesto programma, caricato con un 
QMERGE insieme al programma 
che volete analizzare, visualizza sullo 
schermo i numeri di linea di quest'ulti- 
mo, le istruzioni principali di ogni li- 


nea, i simboli appropriati del diagram- 
ma di flusso per ogni istruzione e gli 
eventuali rimandi di GO TO, GO SUB, 
RETURN, e così via. 

Nonostante l'apparente ermeticità, il 
programma funziona in modo sostan- 
zialmente semplice, andando a “curio- 
sare” per mezzo dell'istruzione PEEK 
nelle variabili di sistema da 23635 a 
23637, che si occupano dei program- 
mi BASIC. A seconda dei valori che 


vengono ritornati, il programma ese- 
gue la routine adeguata per stampare 
sullo schermo i vari comandi e simbo- 
li. 

Alla linea 9943 viene infine presentata 
l'opzione che permette di proseguire 
con la successiva schermata video 
(schiacciando ‘“v’”) o di stampare la 
schermata stessa, premendo il tasto 
p”. 


Flowchart 
versione per ZX Spectrum 16K/48K 


REM flow-chart 

OVER 0: INVERSE 0: BORDER 7 
: PAPER 7: INK 0: CLS 

LET a=PEEK 23636: LET a=a*2 
56: LET a=a+PEEK 23635 

LET c=0: LET y=175: LET x=l1l 
30 


9900 
9901 


9902 


9903 
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9904 
9905 
9906 


9907 
9908 


9909 


9910 
9910 
9912 
99L3 
9914 
9915 
9916 
9917 
9918 


S919 
9920 


LET. 1=>1#*256: 
LET a= 


LET 1=PEEK a: 
LET 1=1+PEEK (a+l): 
a+4 
IF 1>9899 THEN GO TO 9943 
PRINT l;TAB 5;CHR$ PEEK a: 
LET c=c+2: PRINT 
PLOT x,y: LET b=PEEK a 
IF b=226 OR b=234 OR b=242 
OR b=254 THEN GO TO 9924 
IF b>227 AND b<231 OR b=232 
OR b=235 OR b=241 OR b=247 
OR b=249 OR b=253 THEN 
GO TO 9925 
IF b=243 OR b=250 THEN 
GO TO 9926 
IF b=236 OR b=237 THEN 
GO TO 9934 
DRAW 16,0: 
DRAW -28,0: 
DRAW 12,0 
LET y=y-8 
IF b=226 OR b=236 OR b=237 
OR b=254 THEN GO TO 9916 
PLOT x,y: DRAW 0,-7: DRAW 4 
r4: DRAW -4,-4: DRAW -4,4 
LET y=y-8 
LET b=PEEK a 
IF b=14 THEN 
IF b=13 THEN 
IF b=58 THEN 


DRAW -4,-8 
DRAW 4,8 


LET a=a+4 
GO TO 9922 
GO TO 9940 


9921 
9922 
9923 
9924 


D925 


9926 


5927 
9928 
9929 
9930 


9931 
9932 


9933 
9934 


9935 


DI 


Wa: TO 9917 
IF c=20 THEN GO TO 9943 


LET a=a+l: 


GO TO 9904 
DRAW 4,-8,-PI: 
DRAW -24,0: DRAW -4,8,- 
PI: DRAW 12,0: GO TO 9913 
DRAW 16,0: DRAW 0,-8: 
DRAW -32,0: DRAW 0,8: 
DRAW 16,0: GO TO 9913 
DRAW 8,-4: DRAW 8,0: DRAW - 
4,4: DRAW 4,-4: DRAW -4,-4: 
DRAW 4,4: DRAW -8,0: 
DRAW -8,-4: DRAW -8,4: 
DRAW 8,4 
IF b=243 THEN GO TO 9933 
LET a=a+1l: LET f=PEEK a 
IF f=14 THEN LET a=a+4 
IF NOT £=203 THEN GO TO 99 
28 
LET a=a+l: LET f=PEEK a: 
PRINT AT c-2,19;CHR$ £f: 
PRINT 
IF f=236 OR f=237 THEN 
GO TO 9935 
GO TO 9913 
CIRCLE x,y-4,4: PLOT x+4,y- 
4: DRAW 64,0: DRAW -4,4: 
DRAW 4,-4: DRAW -4,-4: 
PLOT x,y 
LET a=at+l: 


LET a=a+l: 
DRAW 12,0: 


LET £=PEEK a 


SASSO NACO 


9948 


IF NOT £=14 THEN GO TO 993 
a 


LET a=a+3: LET g=PEEK (a+l1) 
: LET g=g*256: LET g=g+ 
PEEK (a) 

PRINT AT c-2,26;g: PRINT 
GO TO 9913 

IF c=20 THEN GO TO 9943 
LET a=a+l: PRINT " so 
TAB 5;CHR$ PEEK a: PRINT : 
LET c=c+2 

GO TO 9907 


INVERSE 1: PRINT AT 21,0; "p 
ress ""v"" to view pi © gar to 


print": INVERSE 0 
IF INKEYS="v" THEN GO TO 9 
947 


IF INKEY$="p" THEN GO TO 9 
951 

GO TO 9944 

CLS : LET d=0: LET e=22: 
LET c=0: LET x=130: LET y= 
vrS 

IF PEEK a=58 THEN GO TO 
41 

IF 1>9899 THEN STOP 

LET a=a+l: GO TO 9904 
PRINT AT 21,0;" 

Wo 


GO TO 9947 


99 


COPY: 
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csc a a Aa _LR tt _ t ti gu 


di Paul Clansey 
trad. e adatt. di 
Paolo Mambretti 


Ragionamento e attenzione gli in- 
gredienti essenziali per risolvere Linee 
questo gioco. 


1 

2 

6-8 

I concetto di gioco di Cubo 2D è si- 10 

Brattere a quello del cubo di Rubik, 11-12 
applicato a una griglia bidimensionale 20 
di 16 quadrati colorati in quattro modi 
diversi. | quadrati sono mischiati a ca- 21-24 
so all’inizio di ogni partita, e il vostro 25-60 
compito consiste nel risistemarli, ese- 61-63 
guendo ogni volta lo scorrimento di 64 
una riga o una colonna. In ogni mo- 65 
mento, schiacciando il tasto Q, potrete 
controllare la soluzione; se questa è 70-71 
esatta, vi verrà mostrato il tempo im- 72 
piegato. | tasti usati per manipolare la 73 
griglia vi vengono mostrati ai lati della 
stessa. 75 
Vi consigliamo di registrare su nastro 
una copia del programma PRIMA di 76-77 
dare il RUN, poiché il linguaggio mac- 
china in esso contenuto provoca degli 78 
effetti secondari, quali l'impossibilità 80-81 
di effettuare l’EDIT della linea 1 e l’ap- 100-115 
parente invisibilità di alcune linee del 
listato. Non vi preoccupate, quindi: 116 
questi “inconvenienti” in realtà non 118 
causano nessun problema, a patto che 120 
il programma sia stato correttamente 
copiato. 
Cubo 2D 
versione per ZX Spectrum 
16K/48K 


l REM XXxXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXX 

2 FOR n=23760 TO 23803: 

READ a: POKE n,a: NEXT n 

5 RANDOMIZE : DIM a(4,4) 

6 DATA 62,64,1,0,0,17,4,4,33; 
dai Uri st7,32,:0,48;45)16, 
253 
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Commento 


istruzione REM (contenente 55 caratteri) che alloggia la 
routine in codice macchina 

inserimento dei DATA delle linee 6-8 nella REM di linea 
1 


DATA per la routine in linguaggio macchina che cam- 
bia gli attributi entro un quadrato di 2X2 caratteri 
DATA per gli attributi della griglia 

DATA per la grafica autodefinita 

dimensiona una matrice che contiene i valori degli at- 
triubuti 

definiscono i caratteri grafici 

inizializzano lo schermo 

attende la richiesta di un'altra partita 

contatore degli scorrimenti casuali 

decrementa il contatore e sceglie casualmente uno dei 
16 possibili scorrimenti 

controllano se è stato schiacciato il tasto Q 

esclude tasti indesiderati 

va al numero di linea determinato dal valore (CODE) ot- 
tenuto dalla funzione INKEY$ 

calcola il tempo trascorso (dopo che è stato premuto il 
tasto Q) 

controllano se la soluzione è corretta; in caso contrario 
rimandano alla linea 80 

visualizza il tempo impiegato 

avvisano in caso di soluzione incompleta 

ogni linea effettua uno dei 16 scorrimenti possibili, mo- 
dificando i valori della matrice degli attributi 

durante la partita, va alla linea 120 

si occupa del tempo di gioco 

esegue i POKE degli attributi ognuno dei quadrati della 


griglia 


7 DATA 65,4,35,16,253,209,66, 
229,72,67,119,35,16,252,225 
r213 

8 DATA 17,32,0,25,209,65,16,2 
39,201 


10 DATA 16,16,48,48,16,16,48,4 


8,32,32,8,8,32,32,8,8 


ll DATA 0,8,28,42,8,8,0,0,0,0, 


8,8,42,28,8,0 


12 DATA 0,16,32,124,32,16,0,0, 


0,8,4,62,4,8,0,0 


20 


21 


22 
ni: 
24 


25 
26 


27 


28 


29 


30 


SI 


40 


50 


ie. 


60 


6l 


63 


FOR y=l1 TO 4: FOR x=1 TO 4: 
READ z: LET a(x,y)=2z: 

NEXT x: NEXT y 

FOR £=0 TO 7: READ 2: 

POKE USR "A"+f,Z: NEXT £f 


FOR f=0 TO 7: READ Z: 


POKE USR "B"+f,2Z: NEXT £ 
FOR f=0 TO 7: READ z:. 

POKE USR "C"+f,2: NEXT £f 
FOR £=0 TO 7: READ Z: 

POKE USR "D"+f£f,2Z: NEXT £f 
BORDER 0: PAPER 5: CLS 
PRINT INK 0;AT 2,9;"aA DA 

cA dA ";AT 19,9;"1B kB 

: jB iB " 

PRINT INK 0;AT 4,7;"p"; 


e 4,24;"e";AT 5,7;"C";AT 5 
,24;"D" 


PRINT INK O0;AT 8,7;"0"; 


NE 0,24: AT :9,7;"C";AT 9. 


r24;"D" 

PRINT INK 0;AT.12,7;"n"; 
AT niro Ra 13,7;"C"; 
AT i sy 

PRINT INK 0;AT 16,7;"m"; 
NELL AT 17,7;"C"; 
AT 1724; "0" 


FOR n=3 TO 10: PRINT 

PAPER 2;AT n,8;" ga 
PAPER 6;" ": NEXT n 
° FOR m=l11 TO 18: PRINT 
PAPER 4;AT m,8;" La 
PAPER l;" ": NEXT m 


PLOT 64,151: DRAW 191-64,0: 
DRAW 0,24-151: DRAW 64-191 
70: DRAW 0,151-24 

PLOT 64,87: DRAW 191-64,0:. 
PLOT 64,55: DRAW 191-64,0: 
PLOT 64,238/2: DRAW 191-64 
0 

ld 

PRINT AT 10,28; PAPER 2;" " 
; PAPER 6;" ";AT 11,28; 
PAPER 4;" "; PAPER l;" " 
PLOT 127,151: DRAW 0,24-151 
: PLOT 96,151: DRAW 0,24-15 


l: PLOT 159,151: DRAW 0,24- 
bSI 
PRINT INK 0;AT 0,0; "PREMI 


UN TASTO PER GIOCARE" 
IF INKEY$="" THEN GO TO 62 


64 


65 
70 
71 
72 
73 
75 


76 


Pie; 
78 


PRINT AT 0,0;" 


Ue iLET ff 
g=30 
LET fg=fg-l: GO TOUINT ( 
RND*16+97) 
IF INKEY$="" THEN GO TO 69 


IF INKEY$="q" THEN GO TO 7 
5 
IF CODE INKEY$<97 OR CODE 
INKEY$>112 THEN GO TO 70 
GO TO ((CODE INKEYS)+3) 
RESTORE 10: LET t=(256*256* 
PEEK 23674+256*PEEK 23673+ 
PEEK 23672)/50-t 
FOR y=1 TO 4: FOR x=1 TO 4: 
READ zZ: IF z<>a(x,y) 
THEN GO TO 80 
NEXT x: NEXT y 
PRINT AT..2L,0;." 
Wo 
PRINT FLASH 1L;AT 21,10; "T 
EMPO: ";t: GO TO 61 
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80 


81 


100 


101 


102 


103 


104 


105 


At 


PRENT-AT 21,05" 


PRINT FLASH l;AT 21,10;"I 


NCOMPLETO" 
FOR n=1 TO 700: NEXT n: 
RESTORE 10: GO TO 20 
LET v=a(l.,1): LET a(l,1)=a( 
LET a(l;2)=a(1,3): 
LES a(1,3)=a(1,4): LET a(l 
r4)=v: GO TO 116 
LET v=a(2,1): LET a(2,1)=a( 
4,4) DET a(2,2)=a(2;3): 
LET a(2,3)=a(2,4): LET a(2 
r4)=v: GO TO 116 
LET v=a(3,1): LET a(3,1)=a( 
>s#&)tr LET a(3,2)*a&(3,3F: 
LET a(3,3)=a(3,4): LET a(3 
r4)=v: GO TO 116 
LET v=a(4,1): LET a(4,1)=a( 
4,2): LET a(4,2)=a(4,3): 
LET a(4,3)=a(4,4): LET a(4 
r4)=v: GO TO 116 
LET v=a(4,1): LET a(4,1l)=a( 
31): DET La(®;1l):=a (200): 
LET a(2,;,1)=a(l,1): LET a(l 
sb) =v: GOVDOXEL6 
LET v=a(4,2): LET a(4,2)=a( 
3): LET al(3,2)=2(2,2): 
LET &(2,2Y#a(V,2)}JSJ5EST a(l 
12)=v: GO TO 116 
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106 


107 


108 


109 


110 


lll 


L12 


x15 


114 


135 


116 
117 
118 


120 


125 


LET v=a(4,3): LET a(4,3)=a( 
3,3): LET a(3,;3)=a(2/,3): 
LET a(2,3)=a(1,3): LET a(l 
13) =v: GO TO 116 

LET v=a(4,4): LET a(4,4)=a( 
3,4): LET a(3,4)=a(2,4): 
LET a(2,4)=a(1,4): LET a(l 
r4)=v: GO TO 116 

LET v=a(4,4): LET a(4,4)=a( 
4,3): LET a(4,3)=a(4,2): 
LET a(4,2)=a(4,1): LET a(4 
rl) =v: GO TO 116 

LET v=a(3,4): LET a(3,4)=a( 
3. #3)": (LBT a:(3., rea (Belo 
LET a(3,2)=a(3,1): LET a(3 
rt) evi GO CTO ELE 

LET v=a(2,4): LET a(2,4)=a( 
2,3) t :LET a:62/3)=3#C2 20) 
LET a(2,2)=a(2,1pPr!"GBT al 
r1)=v: GO TO 116 

LET v=a(1,4): LET a(1l,4)=a( 
1,3)% LET a(1,3)=&tkado 
LET a(1,2}*s(L.Ll}rT_ LET ALL 
el) =vr: GO TOLLO 

LET v=a(1,4): LET a(1l,4)=a( 
2,4): LET a(2,4)=a(3,4): 
LET a(3,4)=a(4,4): LET a(4 
r@):8V? GO TO. L16 

LET v=a(1,3): LET a(l,3)=a( 
2,3): LET af2,;S5f=4(3,30: 
LET a(3,3)=a(4,3): LET a(4 
r3)=v: GO TO 116 

LET v=a(1,2): LET a(1,2)=a( 
2,2): LET<:a(2,43\Sa 43 #28):: 
LET a(3,2)=a(4,2): LET a(4 
12) =v: GO TO 116 

LET v=a(l,1): LET a(l,1)=a( 
dil) 3 LET :aA(f2,;1)=a (35): 
LET a(3£b}f=s4(6, AS LED a (4 
sl1)=v: GO TO 116 

IF fg=0 THEN GO TO 120 

IF fg>l1 THEN GO TO 65 

LET £g=0: PRINT INK 0;AT 2 
1,0;"premi'q'per fermare l' 
orologio.": LET t=(256*256* 
PEEK 23674+256*PEEK 23673+ 
PEEK 23672)/50 

FOR y=1 TO 4: FOR x=1 TO 4: 
POKE 23761,a(x,y): POKE 23 
163,8+4*(x-1): POKE 23764,3 
+4* (y-1): LET q=USR 23760: 
NEXT x: NEXT y 

GO TO 70 


diDuncan Overton È 
trad. e adatt.di Paolo Mambrett 


Date un po’ di ‘‘movimento”’ al vo- 
stro Spectrum! 


utto è cominciato riflettendo sul ca- 
Trenino degli schermi grafici da 
cassetta (come quelli dei giochi): stu- 
pendi da vedere la prima volta, ma len- 
ti e - dopo, appunto, la prima volta - an- 
che un po’ noiosi. 
Perché allora non inventare una routi- 
ne che memorizzi le schermate nello 
Spectrum con la possibilità di richia- 
marle in qualsiasi momento? 
Ciò è effettivamente possibile, usando 
l'istruzione PEEK per leggere il valore 
dei byte che interessano (a partire dal- 
la locazione 16384) spostando poi il 
tutto in zone più alte della memoria 
per mezzo delle POKE. Siccome ci tro- 
viamo a lavorare su 6912 byte per 
schermata, il processo risulterebbe più 
lento del caricamento da cassetta; così 
si rende necessario l’uso del linguag- 
gio macchina, forse ostico e sicura- 
mente incomprensibile per i molti in 
possesso della conoscenza del solo 
BASIC (magari agli inizi), ma certa- 
mente veloce a sufficienza. Non si 
preoccupino, in ogni caso, i neofiti: ho 
provveduto anche alla traduzione del 
linguaggio macchina, fornendo anche 
un piccolo programma che potrà sug- 
gerire loro qualche buona idea. 


I programmi 


Il programma uno è la routine in lin- 
guaggio macchina per spostare 6912 
byte da una zona di memoria ad un'al- 
tra; essendo disponibili (in uno Spec- 
trum 48K) più di 40000 byte, mediante 
questa operazione potrete memorizza- 
re contemporaneamente fino a 5 
schermate. 

I byte numero 2 e 3 e quelli numero 5 e 
6 sono gli indirizzi, scritti in esadeci- 
male (cioè in base 16 anziché in base 
10). Il byte 3 è il risultato della divisio- 
ne per 256 dell’indirizzo di partenza, 
mentre il byte 2 è il resto della divisio- 
ne stessa. Per esempio: se 
33000/256 = 128 con resto 232, i byte 
2 e 3 conterranno i valori 232,128. 

Il programma due è costituito da una 
‘ routine BASIC per inserire ed eseguire 


il linguaggio macchina del program- 
ma uno, usando indirizzi specifici. Il co- 
dice macchina viene memorizzato nel- 
lo Spectrum tra gli indirizzi 64000 e 
64020, ed è protetto da eventuali NEW 
per mezzo della linea 1000. Le scher- 
mate possono essere immagazzinate a 
partire dalla locazione 25000, e gli in- 
dirizzi successivi dovranno essere in- 
crementati di 7000 byte. 

Ora battete il programma (salvatelo su 
nastro appena avrete finito di inserirlo, 
a scanso di incidenti...), date il RUN e 
indicate come indirizzi 16384 e 25000, 
eseguendo poi dei disegni sullo sche- 
mo (o caricando una schermata di 
qualche gioco). Inseritè ora RANDOMI. 
ZE USR 64000: noterete che, almeno 
apparentemente, non è successo... 
niente. In realtà il contenuto dello 
schermo è stato copiato nelle locazioni 
di memoria da 25000 a 31912 - non ci 
credete? Fate qualche PEEK di verifica 
oppure, ancora meglio, date un CLS e 
rieseguite il programma, inserendo 
questa volta 25000 come primo indi- 
rizzo e 16384 come secondo. Digitate 
ancora RANDOMIZE USR 64000 e ve- 
drete come per incanto riapparire la 
vostra immagine, in un tempo notevol- 
mente inferiore a quello che avreste 
impiegato usando PEEK e POKE. 
Oltre a questa, avete ancora spazio in 


Programma uno 


memoria per altre quattro schermate, 
richiamabili nella stessa maniera. 


E allora? 


Scommetto che qualcuno, a questo 
punto, si starà chiedendo che cosa ha a 
che fare tutto ciò con l'animazione; im- 
magino che altri avranno invece già 
capito dove voglio arrivare. 


Se infatti viene usata una routine in lin- 
guaggio macchina per richiamare ci- 
clicamente gli schermi disponibili, si 
possono, per l'appunto, ottenere effetti 
di animazione. Il programma tre usa la 
nostra routine, alla linea 100, per im- 
magazzinare quattro disegni, creati 
dalla linea 7 alla linea 70 e leggermen- 
te differenti tra loro. La linea 200 e le 
seguenti richiamano i disegni in ciclo, 
dandovi, previa attesa di un minuto 
circa, un eccezionale effetto di anima- 
zione. 


Per risparmiarvi la fatica di fare i calco- 
li, vi dico che un ciclo completo dura 
circa 7 secondi impiegando 64 ‘“foto- 
grammi”, così da maneggiare un tota- 
le di circa 63000 byte al secondo. 


Ovviamente, potrete utilizzare il pro- 
gramma per creare qualunque disegno 
vogliate. Inviate a SUPERSINC i vostri 
“Tron” domestici: i più belli verranno 
pubblicati! 


versione per ZX Spectrum 48K 


Esadecimale Mnemonico 
11,XX,XX LD DE,ind.1 
21,XX,XX LD HL,ind,2 
06,1B LD: B27 

C5 PUSH BC 
06,00 LD B,256 
1A LD ADE 

23 INC (HL),A 
13 INC DE 

23 INC HL 
10,F9 DJINZ,-6 

Ci POP BC 
10,F4 DJINZ,-11 

C9 RET 


Spiegazione 

leggi da indirizzo 

memorizza a indirizzo 

prepara un ciclo di 

6912 ripetizioni 

mette il contenuto di indirizzo 1 
in indirizzo 2 

sposta indirizzo 1 e indirizzo 2 
all'indirizzo successivo 

fine del ciclo 

torna al BASIC 
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Programma due 
versione per ZX Spectrum 48K 


1000 
1010 


1020 
1025 
1030 
1035 
1040 
1045 


1050 


CLEAR 63999 

INPUT "leggi dall'indirizzo 
È FF 

INPUT "memorizza all'indiri 


- 1.0 Sl: plliinge  - 


FOR n=64000 TO 64020 

READ a: POKE n,a: NEXT n 
DATA 17,y-INT (y/256)*256, 
INT (y/256) 

DATA 33,zZ-INT (z/256)*256, 
INT (Z/256) 


DATA 6,27,;197,6,0,26,119,19 

135516,249,193,16,244,201 

PRINT "prepara o richiama 
lo schermo" 


Programma tre 
versione per ZX Spectrum 48K 


10 


80 


90 


100 


110 


120 


130 


140 
150 
160 
170 


+. LET z=26000: 


BORDER 0: PAPER 0: BRIGHT 1 

< AGES 

OVER 0: CLEAR 63999 

LET d=0 

FOR m=1 TO 4 

FOR n=0+d TO 2+PI+d STEP 

PI/8 

INK 6: PLOT 127+1295*SIN n,8 

7+87*COS (n) | 

INK 6: PLOT 127+127*SIN (n+ 

PI/100) ,87+87*COS (n+PI/l 

00) 

INK 6: PLOT 127+127*SIN 

PI/50) ,87+87*COS 

) 

INK 6: 

3*PI/100) ,87+87*COS 

PI/100) 

INK 5: 

7+70*COS -n 

DRAW 70* (SIN (-n+PI/2)- 

SIN -n) ,70*(COS (-n+PI/2)- | 

Cos ff | | 
| 
| 
| 


(n+t 
(n+P1I/50 


PLOT 127+127*SIN 
(n+3* 


(n+t 


PLOT 127+70*SIN -n,8 


INK 2: PLOT 127+35*SIN n,87 
+35*COS n 

DRAW 35*(SIN (n+PI/2)- 

SIN n) ,35* (COS 
COS n) 

NEXT n 

GO SUB 210 

LET z=z+7000 
LET d=d+PI/32 


(n+PI/2)- 
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180 
190 
200 
210 


220 


230 
240 
250 
260 


270 


280 


290 
300 


310 


320 


330 
340 


IE SUPERSINC augura a tutti 


e vi dà appuntamento a SETTEMBRE 


CLS 
NEXT m 
GO TO 240 
RESTORE 220: FOR n=64000 
TO 64020: READ q: POKE n,q 
NEXT n: RANDOMIZE USR 640 
00 


DATA 17,0,64;33&@GINT (2/25 
6) *256,INT. (2/256)..60,2:/,197 
r6,10,26,Lk9:19, 35514624919 
316,244 201 

RETURN 

LET z=26000 

FOR £=0 TO 60 STEP 20 
RESTORE 270: FOR n=64000+f£f 
TO 64019+f: READ q: POKE n 
ra: NEXT n 

DATA 17,z-INT (2Zz/256)*256, 
INT (2/256%,33,0,604,6,27,19 
7,6,0,26444919 35164493 
93,16,244 

LET z=z+7000 


NEXT £ 
POKE 64080,201 


IF INKEYS="" THEN 
RANDOMIZE USR 64000 
IF INKEYS<>"" THEN 
GO TO 320 

GOTTO 310 


SAVE "ANIMAZIONE" LINE 10 


BUONE VACANZE 


A SÒ 


per il numero 3. 


Non perdetelo! | 


di Brian Wilson 
trad. e adatt. di 
Paolo Maffei 


Una emozionante battaglia in mez- 
zo all'oceano fra voi e il comandan- 
te di un sottomarino nemico. Riu- 
scirete a localizzare con il sonar il 
sottomarino e a colpirlo con le 
bombe di profondità? 


iete il capitano di un cacciatorpedìi- 
Siere che naviga nell’oceano alla ri- 
cerca del sottomarino nemico. Il vo- 
stro compito è di trovarlo e distrugger- 
lo e, considerando che non potete ve- 
derlo, non è poi tanto facile! 
L'unico aiuto che avete è il sonar: la 
frequenza e il ritorno dell'eco sono le 
uniche informazioni a vostra disposi- 
zione. 
Dovrete così capire dove si nasconde il 
sottomarino, preparare le bombe di 
profondità e lanciarle. 
Difendetevi, dunque, perché il coman- 
dante del sottomarino non rimarrà 
inerte aspettando che voi lo colpiate; 
infatti lancerà dei siluri contro la vo- 
stra nave. Fortunatamente disponete 
di sofisticati sistemi che vi permette- 
ranno di captare la presenza di siluri 
nemici e tentare quindi di evitarli. 


Sottomarino 


versione per ZX Spectrum 16K/48K 
10 PRINT AT 0,11; "SOTTOMARINO" 


15 
20 


PLOT 88,167: 


ego.." 
25 GO SUB 2000 
30 GO SUB 1000 
40 LET bs=9999 
PAPER l: 


DRAW 88,0 
PRINT AT 10,6; "Attendere,pr 


BORDER 5: 


LOAD 


Linee Commento 
40-170 


battaglia 


300-320 
350 
400-430 
450 
500-550 


sonar 
suoni dei siluri 


cio 
610-620 
700-730 
740-820 
830-895 
900-930 
1000-1130 
2000-2086 
3000-3090 


istruzioni 


Particolari tecnici 


Se all’inizio del gioco premete il tasto 
“O” il sottomarino comparirà senza la 
possibilità di silurarvi: potrete così al- 
lenarvi, ma non otterrete alcun punto. 
I tasti da usare sono: “1” per il sonar; 
“2” per lanciare le bombe; “5” e “8” 
per muovere la nave; “6” e “7” per de- 


Li 
RE 


inizializzazione delle variabili e disegno del campo di 


movimento della nave 
aiuto se vengono superati i 100 punti 


determinazionedellaprofondità delle bombe e loro lan- 


disegno del sottomarino (aiuto) 
discesa delle bombe 
sottomarino distrutto 
visualizzazione del punteggio 
esplosione delle bombe 


caratteri autodefiniti 
suono dei siluri e affondamento della nave 


terminare la profondità delle bombe. 
Si può giocare per conseguire il minor 
punteggio (affondare il sottomarino 
appena possibile; punteggio massimo 
se si viene affondati) o per ottenere più 
punti che potete (sopravvivenza e pun- 
teggio massimo per l'affondamento 
del sottomarino). Buona fortuna... 


105 PAPER 7 

110 FOR.DnefiT0. 127: PREMT_" “> 
NEXT n 

120 LET c=15: LET h=1 


*oLBT de=3: 
=0: LET q=l 
PRINT AT 3;c°"ABC" 


130 


LET sc=0 


LET k=0: LET kl 


140 LET 1ls=7+INT (RND*13) 
150 LET cs=1+INT (RND*28) 
160 PRINT AT 0,0; "PROFONDITA'BO 


MBA PUNTI" 
170 PRINT AT 0,175;dc-33;AT 0,28; 
Sc 


300 IF INKEYS="5" THEN LET sc= 
(sc+1) *h: PRINT AT 3,c;" 
“: LET c=c-1*(c>0): PRINT 
AT 3,c; "ABC" 
310 IF INKEYS="8" THEN LET sc= 
(sc+1)}#hs;. PRINT AT 3,c;" 
": LET c=c+1*(c<29): 
PRINT AT 3,c; "ABC" 
320 PRINT AT 0,28;sc 
350 IF sc>100 AND h=1 THEN 
GO TO 610 
400 LET da=INT (SQR ((15-3)12+( 
ABS (cs-c))12)) 
410 IF INKEY$<>"l" THEN 
GO TO 450 
420 LET sc=(sc+1)*h: PRINT AT 0 
4283 BC 
430 BEEP .1,40: FOR n=0 TO d*5: 
NEXT n: BEEP .1,70-d4*3 
450 LET k=(k+1)*h: IF k>40*q 
THEN GO TO 3000 
500 IF INKEYS="6" THEN LET sc= 
(sc+1)*h: LET dc=dc+1*(dc<2 
1) 
510 IF INKEYS="7" THEN LET sc= 
(sc+1)*h: LET dc=dc-1*(dc>5 
Ma 
520 ’PRINT AT 0,17;dc-3;" ";AT 0 
,28;sc;" " 
530 IF dc=3 THEN GO TO 600 
540 IF INKEY$S="2" THEN GO TO 7 
00 
550 FOR n=0 TO 20: NEXT n: 
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861 


GO TO 500 
IF INKEYS<>"0" THEN 
GO TO 300 
PRINT PAPER l; INK 7;AT ls 
CS; "DEE" 
LET h=0: GO TO 300 
LET sc=(sc+2)*h: PRINT AT 0 
r28;8c;" " 
FOR n=4 TO dc-1: FOR m=0 
do: 
PRINT PAPER l; INK 7; 
OVER l;AT n,c+1l;"G": 
BEEP .3,1 
NEXT m: NEXT n 
IF n>1s+1 OR n<1s-1 OR c>cs 
+2 OR c+2<cs THEN GO TO 90 
0 
FOR n=0 TO 5: PRINT 
PAPER l; INK 6; OVER ll; 
AT ls,cs;"DEF": BEEP .,05,20 
<. MMND tic 
PRINT PAPER l;AT 1s,cs;" 
" 


FOR n=0 TO 9: PRINT 
PAPER l; INK 6; OVER ll; 
AT ls,cs;"HJH"- 
BEEP .05,20: NEXT n: 
PRINT PAPER l;AT ls,cs;" 
" 


FOR x=1s TO 21: FOR n=0 
IU" 3 
PRINT PAPER l; INK T8 


OVER 1;AT x,cs-1;"IKHKL" 
IF x+1<=21 THEN PRINT 
PAPER l; INK 7; OVER l; 


AT x+1,cs-1;"KHJHI" 

IF x+2<=21 THEN PRINT 
PAPER l; INK 7; OVER 1; 

AT x+2,cs-1l;"MKIKN" 

BEEP. .05,40-x*4: NEXT n: 
NEXT x 

PAUSE 100: CLS : IF sc«<bs*h 
THEN LET bs=sc 


PLOT 56,151: DRAW 168,0 


PRINT AT 2,7;"SOTTOMARINO D 
ISTRUTTO";AT 6,4; "PUNTEGGIO 
1” BC : 
PRINT AT _.10,4;"BEST SCORE:" 
rbS 

IF sc=0 THEN LET a$="Non h 
ai ottenuto punti.”: 

GO TO 870 


""IF sc<30 THEN “LET ase"Artru 


olati in Marina!": GO TO 87 
0 


IF sc<60 THEN LET a$=" 


862 
863 
870 
880 
890 


895 
900. 


910 
920 


930 
1010 


1020 


1030 


1050 
1060 


1070 
1080 


1090 


1100 


1110 
1120 
1130 
2010 


2020 
2030 


PRINT PAPER l; 


Eccellente!": GO TO 870 

IF sc<100 THEN LET a$=" 
Ben fatto!": GO TO 870 

LET a$="Puoi fare meglio!" 

PRINT AT 14,4;a$ 

PRINT AT 18,1;"Premi un tas 

to per giocare.." 


PAUSE 0: FOR n=0 TO 10: 
BEEP RND,30-RND*40 

NEXT n: GO TO 100 

LET dc=3: FOR m=0 TO 7: 
BEEP .05,-10 


INK 6; 
OVER l;AT n,c+1;"H" 
NEXT m: PRINT PAPER L;AT n 
rC+1;" " 
GO TO 300 
PRINT. AT 10,6;" 
" 
PRINT AT 2,0;"Sei a bordo d 
i una una nave che sta per 
essere colpita da un sot 
tomarino nemico che non puo 
i vedere.." 
PRINT INK 2;AT 6,11; "COMAN 
DI": PRINT AP 8,.10r"1”, "son 
Ar tTAT 10,10472", "Lancio bo 
mbe";AT 12,8;"5 & 8","Movim 
ento nave";AT 14,8;"6 & 7", 
"Profondita'bombe" 
PRINT AT 20,9;"Premi un tas 
to" 
PAUSE 0: PRINT AT 2,0;" ";: 
FOR n=1 TO 146 
PRINT " Mes: NEXT n 
PRINT AT 3,0; "ATTENZIONE! 
Il sotto 
marino puo' rispondere al 
fuoco. Un particolare suono 
ti dice se un siluro sis 
avvicinando." 
PRINT "Devi decidere se muo 
vere la nave o meno.,.E' sol 
o questione di fortuna.." 
vtriuri 
PAUSE 0: PRINT "Questo e' i 
1 suono che ti avvisadel pe 
ricolo:.;" 
FOR_n=0 TO 50: 
NEXT n 
PRINT AT 21,10; "per giocare 
" 


ta 


BEEP .05,50: 


PAUSE 0: RETURN 

FOR q=144 TO 157 

FOR n=0 TO 7 

READ a: POKE USR CHR$ q+n,a 


2040 
2045 
2050 
2051 
2052 
2060 
2061 
2062 
2070 
2080 


2081 
2082 


2083 
2084 


2085 
2086. 


3000 
3010 


3020 
3030 


3040 
3050 


3060 
3070 
3080 


3090 


NEXT n: 
RESTORE : RETURN 

DATA 0,0,0,1,1,255,255,127 
DATA 0,24,24,217,255,255,25 
5,255 

DATA 128,128,128,240,240,25 
5,254,252 

DATA 0,0,0,0,127,255,255,12 
7 

DATA 128,240,240,240, 255,25 
5,495, 455 

DATA 0,0,0,0,249,255,255,24 
9 
DATA 


NEXT q 


0,0,126,126,126,126,0, 


0 

DATA 20,82,72,32,148,1,82,8 
< 
DATA 
DATA 


5,0,40,0,21,64,37,136 
9,64,36,64,32,4,32,132 


DATA 
DATA 
4 
DATA 
DATA 
0 

IF kl<4 THEN BEEP .05,50: 
LET kl=kl+1: GO TO 600 

LET q=.5+(RND/2): LET k=0: 
LET k1=0 

LET ct=c-3+INT (RND*8+.5) 
IF c=ct OR c+l=ct OR c+2=ct 
THEN GO TO 3050 


0,40,2,72,18,64,10,64 
64,16,64,8,130,40,68,3 


5,64,16,4,0,18,0,2 
85,0,84,0,136,32,20,16 


GO TO 6000. 

PRINT: AT 3,c;" ": FOR n=4 
TO 21: FOR m=0 TO 1 

PRINT PAPER l; INK 5; 


OVER l;AT n,c; "ABC" 
BEEP .1,20-n*2: NEXT nm: 
NEXT n 
LET sc=5sc+20: 

RND+.5) 
LET c=29*a: PRINT AT 3,c;"A 
BC": GO TO 300 x 


LET a=INT (. 
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Cullen mene 


di Graham Ramsden 
trad. e adatt. di 
Paolo Maffei 


Una lotta all’ultimo... pestone per 
salvare il vostro pranzo all’aria 
aperta. 


fr è un originale gioco per lo 
Spectrum 16K nel quale interpreta- 
te la parte di un... piede. 

Alcune formiche vogliono rovinare il 
vostro picnic cercando di rubare la 
frutta dal cestino. Ci vogliono 4 formi- 
che per portare via ognuno dei 3 frutti 
e voi dovete schiacciarle con il piede 
prima che loro sabotino completamen- 
te il vostro picnic. Ma dovete stare an- 
che attenti a non calpestare le farfalle 
che compaiono ogni volta che tentate 
di schiacciare una formica. 

Per rendere più veloce il gioco si pos- 
sono apportare delle piccole variazioni 
al programma. Il metodo più semplice 
consiste nell’eliminare alcune istruzio- 
ni BEEP, soprattutto nella linea 120. 
Inoltre si possono spostare le linee dal- 
la 7 alla 80, e sistemarle alla fine del 
programma sostituendole con una 
semplice chiamata di routine 
(GOSUB...). 


Picnic 


90 

100 
120-130 
140 

145 


150 
155 
160 
200-220 


1000-1030 
2000-2030 
3000-3096 
4000-4010 e 
4015-4020 


versione per ZX Spectrum 16K/48K 


7 LET a=l10: LET ant=0: 


LET sc 


=0: LET fr=3: LET bop=0 

8 LET a$="AB": LET b$="CD": 
LET c$="EF": LET d$="GH": 
LET e$="IJ": LET f$="KL": 


LET g$ * "Rev 
9 CLS": (LET ms=" 


Pe 10 N 


(+ ": FOR q=19 TO 1 


STEP -2: PRINT AT q;6; 


INK 0; PAPER 7; BRIGHT l; 
FLASH l;m$: BEEP .01,qg+10: 


BEEP .01,q+13: BEEP 
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+01,g+ 


Commento 
vengono definite le principali variabili 

presentazione grafica del gioco 

creazione dei caratteri grafici autodefiniti 

viene chiamata la subroutine che contiene le istruzioni 
viene chiamata la subroutine che disegnano l’intestazio- 
ne 

disegna il frutto nella parte bassa dello schermo e chia- 
mano la relativa routine per cancellare il vecchio frutto 
controlla il tasto premuto e muove il piede nella giusta 
direzione 

se è stato premuto il tasto “1°” chiama la subroutine cor- 
rispondente 

muovono la formica 

se la formica ha attraversato lo schermo viene aggiorna- 
ta la variabile bop e modificata la posizione della formi- 
ca 

4 formiche hanno attraversato lo schermo: diminuisce il 
numero dei frutti rimasti vengono ridiginite le variabili 
e rimanda alla linea 81 

punteggio 

se i frutti sono terminati, rimanda alla linea 4030 
ritorno all’inizio del ciclo 

disegnano il movimento verticale del piede e controlla- 
no se è stata colpita una farfalla o una formica. Se è una 
farfalla perdi il frutto; se è una formica il punteggio au- 
menta di 2 o 4 punti a seconda della precisione 
Intestazione del gioco 

Fine della partita, BEEP, e autorun del programma. 
Istruzioni. 


queste routines cancellano il vecchio frutto e inserisco- 
no nelle 4030-4040 quello nuovo. 


16: NEXT q: LET q$s="Attento 
alla Farfalla!!!": FOR c=1 
TO LEN q$: LET r$="": 

LET r$=r$+q$(c): PRINT 

AT 10,c+3; INK 6; PAPER 2; 
BRIGHT l; FLASH l;r$: 
BEEP .01,c: BEEP .01,c+3: 
BEEP .01,c+6: NEXT c: 
BRIGHT 0 

10 FOR £=0 TO 18: FOR n=0 TO 7 

° READ x: POKE USR CHR$ (14 

4+£f)+n,x: NEXT n: NEXT f 


20 


30 


40 
50 
60 
70 
80 
81 


82 
90 


100 


120 


DATA 0,0,0,0,1,3,3,3,0,96,1 
44,128,128,192,192,192,7,7, 
15,31,29,24,13,7,224,224,24 
0,248,248,248,240,224,30,15 
r7r3r3rlrl,1,0,128,224,240, 
248,252::1252 25®ibb, Lo 33,7 
115,30, 252, 252,252,248,240, 
224,128,0 

DATA 6,1,6,1,15,17,44,45,32 


r64,176,64,240,136,52,180,4 
9,16,27,11:;8,7,3;1,140,8,10 
4,112,16,96,64,128,0,0,227, 
230,602:137,0,0,0, 192,199, 55 
se Ir TELIT, 1937153, 1 
53,153,153,153,0,1,3,43,85, 
#34 255,127, 126,36,36,194,1 
993255255, 254,36,50,105,12 
S,02:/53;25,17,36,76, 150,190 
r124,248, 25,136 
DATA 892,145:238,77,172,15 
27136 
GO SUB 3000 
GO SUB 1000 
PRINT AT 21,0; 
{32SG8}" 
IF fr=3 THEN PRINT AT 19,2 
9; INK 4;a$;AT 20,29;b$ 
IF fr=2 THEN GO SUB 4000 
IF fr=1 THEN GO SUB 4015 
LET a=a+(INKEYS$="0" AND a<2 
6)-(INKEYS="9" AND a>0): 
PRINT AT 2,a; INK l;" PQ" 
IF INKEY$="1" THEN 

60 SUB 200 

PRINT AT 20,ant; INK Op" Me" 
:* BEEP .001,50: BEEP .001,4 
0: BEEP .:001,30 


INK 4;" 


130 
140 


145 


150 


155 
160 
200 


201 


205 


206 


LET ant=ant+l 

IF ant=28 THEN LET bop=bop 
+1: LET ant=0: PRINT AT 20, 
31; "EMERSI "20,28; 


IF bop=4 THEN LET fr=fr-l: 
DERP:.25,30: BEEP 75,0; 
LET bop=0: PRINT AT 20,ant 
st 8: LET ant=0: PRINT AT 2 

0,315: fe.-F0R -p=2 TO 16: 
PRINT AT p,0; INK 0;" 


° BEEP .0l1,p+10: NEXT p: 
NEXT n: GO PO <sìl 
INK l: PRINT AT 0,10;sc: 

PRINT AT 0,29;fr 
IF fr=0 THEN GO TO 4030 
GO TO 90 
FOR £f=2 TO 14: PRINT AT f+l 
c&tbg INK-13"PO";AT fuatlL;" 

O";: BEEP .001,£+20: 

BEEP .001,f+22: BEEP .001, 
f+24: NEXT £f: GM (f+L, 
a+1)=43 OR ATTR (£f+1,a+2)=4 
3 THEN LET bop=4: IF bop=4 

THEN GO TO 145 
FOR z=15 TO 18: PRINT AT z+ 
le@+1s. INK 1l;“PO"sAT z;a#13 
".0": BEEP .001,2+20: 

BEEP .001,Zz+22: BEEP .001, 
z+24: NEXT Z 
IF z+1=20 AND a+l=ant 

THEN LET sc=sc+2: PRINT 
AT 20,ant; INK 05"v*;AT 20; 
antig © DVER: LsPx" FOR i=0 

TO 4: BEEP .01,554 BEEP: ..0 
Li; 50::BEBD:401,51:/ MB ii 

LET ant=0 
IF z+1=20 AND a+2=ant 

THEN LET sc=sc+4: PRINT 
ATZD.,ant; INK Ds*Ee'csAT 20, 
ant; OVER l;"v": FOR i=0 

TO 4: BEEP .01,55: BEEP .0 
1553: BEEP:1501, 51 NEXT 1: 

LET ant=0 
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210 


FOR f=20 TO 3 STEP -l: 
-PBANT AT.:f,a+l;" "<sAT f-l 
ra+l; INK 1l;"PQ": BEEP .001 
r£+20: BEEP .001,£f+22: 


BEEP .001,£f£+24: NEXT f 
PRINT AT l16,INT (RND*10)+2; 
" " 

PRINT AT 16,a+1l; INK 3;g$é 
RETURN 
BORDER 5: PAPER 5: INK 5: 

CLS ! 

PRINT INK l;"Punteggio=";s 


c;" {SG8}PIC NIC{SG8} Fruit 
- Vefp;" M" 

FLASH 0: RETURN 

PRINT AT 10,7; INK 3; 

FLASH 1; PAPER 7; "Hai pers 
o i1 piste" 

FOR n=50 TO 0 STEP -l: 


BEEP .l,n: BEEP .l,n+2: 
BEEP .l,n+4: NEXT n 
FOR v=50 TO 30 STEP -l: 
BEEP .001,v+6: BEEP .00l1,v 
+3: BEEP .001,v: NEXT v 
RUN 
PAPER 4: INK 0: CLS 
PRINT " IJN PIECCNI 
GC MIJ"”" 


PRINT ‘RSRSRSRSRSRSRSRSRSRS 
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3050 


3060 


3070 


3075 


3080 


3081 


3082 
3085 


3090 
3095 


3096 
4000 


4001 
4002 


4010 
4015 


4016 


4020 
4030 


4040 


RSRSRSRSRSRS " 

PRINT INK 7;';"Stai facend 
o un tranquillo picnic 
+ +. .quando all'improvviso l 
e odiose formiche arrivano 

a rovinare tutto." 

PRINT '; INK 7;"Loro cercan 
o di rubare la tua frutta 
ma ci vogliono 4 formichep 
er rubare ognuno dei 3 frut 
ti" 

PRINT '; INK 7;"Quindi devi 


calpestarle oppureil tuo 
picnic sara' rovinato" 
PRINT 1 CINE 75° pi ST I 
nistretà ts" ia didestr 
_ pui ti se Cl°...Calpesta" 
FOR g=0 TO 5: FOR 1=0 TO 7: 
BEEP .1,1+40: BORDER 1 

IF INKEYS<>"" THEN 

RETURN 

NEXT 1 

FOR k=7 TO 0 STEP -l: 

BEEP .1,k+40: BORDER k 

IF INKEYS<>"" THEN 

RETURN 
NEXT k: NEXT g 
CLS : RETURN 


FOR x=28 TO 1 STEP -l: 
PRINT AT 18,x; INK 4;"AB " 
;AT 19,%; "0 ER 2004015 
INK 0;"N N,,°": BEEP .01,x: 
BEEP .0l1,x-2: BEEP .01,x-4 
: NEXT x: PRINT AT 18,0;" 
".AT 19,0;" " 


PRINT AT 19,29; 

AT 20,29;d$ 

LET fr=2 
RETURN 

FOR x=28 TO 1 STEP -l: 
PRINT AT 18,x$ INK 6f°EF " 
SAT 19,x;"GH "3A: 208-137 
INK 0;"N N": BEEP .01,x-4 
* NEXT x: PRINT AT 18,0;" 
“>AT 19,0;" " 

PRINT AT 19,29; 

N20, 29; £$ 

RETURN — 

FOR x=28 TO l STEP -1: 
PRIDE AT 19x00 IND 211 -" 
FRE AIMEE: “INI 10,641 
INK 0;"N N": BEEP .01,x-4 


INK 6;c$; 


INK 2;e$; 


1 BEEP .01,x-2: BEEP .01,x- 


4: NEXT x: PRINT AT 18,0;" 
CENE LI 03” " 
GO TO 2000 


a cura di 
Lucio Bragagnolo 
Pedro 


Come è dura la vita di un giardinie- 
re! 


OdHd 


tu 

2g 

Za 

2. ® 

3 

ERA 

SY 

Sti 

\°y 

29 

? a ««the name 
- of the game 


n questo simpaticissimo e frenetico 
Cotunsò ricoprite il ruolo di Pedro, 
giardiniere dalle evidenti origini cen- 
troamericane, impegnato alla cura del- 
la sua modesta aiuola, forse un po' ri- 
stretta come dimensioni ma certamen- 
te tra le più belle e curate della zona. In 
basso e sulla destra figurano un muc- 
chio di concime e uno di mattoni, con i 
quali il nostro sta costruendo un labi- 
rinto a scopo ornamentale. Vicino a lui 
anche una cassetta di semi; al centro 
del giardino, i suoi bellissimi fiori, co- 
stati mesi di fatiche e cure arnorevoli. 
C'è proprio di che esserne orgogliosi! 
Sì, Pedro è davvero una persona felice 


e fiera del suo lavoro... ma che succe- 
de? Da dove arrivano quei giganteschi 
formiconi? E che cosa stanno facen- 
do? Si mangiano i fiori! Stanno rasan- 
do al suolo l’intera aiuola! Improvvisa- 
mente per il piccolo giardiniere si sca- 
tena l'inferno. Le formiche, poche ma 
agguerrite, distruggono un fiore dopo 
l'altro. Egli cerca di contrastarle sbar- 
rando loro la strada con mucchi di con- 
cime e, vista la scarsa resistenza di 
questi, coi mattoni. Riesce anche a 
schiacciare sotto i piedi alcuni degli 
assalitori, ma presto diventa evidente 
che per respingere la ferocissima orda 
ci vuole ben altro... e tenta di correre ai 
ripari precipitandosi verso i semi, per 
rimpiazzare i fiori distrutti con altri 
giovani e teneri germogli. Ma ecco un 
malintenzionato avvicinarsi con aria 
cupida ai semi! Ancora Pedro deve 
correre a salvare la sua unica ricchez- 
za, e mettere in fuga Il ladro. Siccome 
il giardino è sempre stato tutto per lui, 
è chiaro che la sparizione totale 
dell’aiuola provocherà la sua morte. 
Per quanto tempo riuscirà a sopravvi- 
vere? Le formiche non si vedono più, e 
c'è il tempo di piantare qualche altro 
fiore - prima dell’arrivo dei ratti gigan- 
ti! 

Passando da un'ondata all’altra, vi ri- 
troverete sempre più coinvolti nel gio- 
co, catturati dalla velocità e dalla pre- 
cipitazione con cui dovrete condurre la 
partita. Inizialmente PEDRO sembra 
un arcade come tanti altri: ma si di- 
stacca quasi subito dalla massa, se non 
altro per la varietà delle situazioni pro- 
poste. Sebbene infatti il pericolo da re- 
spingere sia praticamente sempre lo 
stesso, non è possibile usare una tatti- 
ca, come dire, monodirezionale (cioè 
rivolta a controllare il gioco in modo di 
poter giocare all'infinito secondo un 


unico pattern predeterminato): il no- 
stro eroe può muoversi in tutte le dire- 
zioni, per tutta l'estensione del giardi- 
no, e troverà dovunque qualcosa da fa- 
re - e fin qui va tutto bene -, ma da fare 
urgentemente: qui sta il segreto del 
gioco, che trasforma ogni partita in 


una affannosa e frenetica corsa al sal- 
vataggio dei fiori , nel tentativo di de- 
streggiarsi tra le varie azioni possibili 
che il piccolo giardiniere può compie- 
re. Oltretutto, il posizionamento di Pe- 
dro è molto critico (nel senso che per, 
diciamo, prendere un mattone o semi- 
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nare un fiore bisogna essere proprio 
nel punto giusto, con un margine di er- 
rore assolutamente minimo) e questo 
vi creerà delle notevoli difficoltà, spe- 
cialmente agli inizi e giocando con la 
tastiera. E prevista comunque anche la 
compatibilità del gioco con alcuni joy- 
stick: Fuller, Sinclair, Kempston, AGF, 
Protek. Inutile dire che, data la com- 
plessità del gioco, sono richiesti i 48K 
di memoria. 

Concludendo, PEDRO è un arcade di 
ottima qualità e grande giocabilità, 
che vi terrà sicuramente impegnati a 
lungo sulla tastiera (se volete, potete 
segnalarci i vostri risultati: vi racco- 
mandiamo comunque di essere onesti 
e di non gonfiare i punteggi realmente 
ottenuti!), soprattutto se avete il cosid- 
detto “pollice verde”... 
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Cosmic cruiser 


Una temeraria spedizione di soc- 
corso spaziale 


“Un manipolo di pirati spaziali appar- 
tenenti al malvagio Impero Galattico 
di Rallom si è impossessato con un au- 
dace colpo di mano di una stazione or- 
bitante terrestre. La sola astronave 
amica nelle vicinanze è la vostra — un 
vecchio incrociatore a medio raggio — 
a cui viene affidato il compito di porta- 
re in salvo, a qualsiasi costo, l’equipag- 
gio della stazione, rimasto prigioniero 
degli alieni rallomiani...”. 

Così si legge sul foglio introduttivo di 
questo gioco per lo Spectrum 48K, 
una delle ultimissime creazioni della 
Imagine, che siamo in grado di presen- 
tare in anteprima per l’Italia (tant'è ve- 
ro che, nel momento in cui viene scrit- 
ta questa recensione, disponiamo solo 
della cassetta test, senza la possibilità 
di mostrarvi la copertina originale del- 
la cassetta). Un tipico arcade, dunque, 
ma molto ben fatto ed estremamente 
difficile da padroneggiare, almeno gio- 
cando con la tastiera. 

Ma passiamo alla descrizione del gio- 
co. 

Una volta effettuato il caricamento, 
durante il quale appare la solita scher- 
mata iniziale di presentazione — forse 
di qualità leggermente inferiore alla 
media, sicuramente meno bella di èl- 
tre — si sente la sigla iniziale (a propo- 
sito: sapevate che da tempo la Imagine 
ha alle sue dipendenze uno staff spe- 
cializzato nei rispettivi settori, incari- 
cato della realizzazione della parte gra- 
fica e sonora dei vari giochi?), inter- 
rompendo la quale si passa alla scelta 
dei comandi per giocare. Oltre natural- 
mente alla tastiera, viene offerta la 
possibilità di scegliere tra i joystick 
Fuller, Kempston, Protek, AGF, Sin- 
clair e 12L; dopo di che, comincia la 
partita. 

Lo schermo mostra in alto la stazione, 
ruotante da sinistra a destra, con i por- 
telli, chiusi, in evidenza. Nella parte 
bassa viene invece visualizzata una 
parte del vostro incrociatore, col por- 
tello di uscita sulla sinistra e il canno- 
ne laser dalla parte opposta. In mezzo, 
fluttuano due satelliti (di cui parleremo 
più avanti). Sul portello voi, con la pi- 
stola laser già imbracciata. 

La prima cosa che dovete fare è portar- 


vi sul cannone laser, e da lì distruggere 
uno o più portelli della stazione. A 
questo punto è probabile che da essi 
portelli escano alcuni rallomiani 
(dall'aspetto di panciuti linguoni o mo- 
struosità aventi vaghe somiglianze con 
un pesce palla... e questo è solo l’ini- 
zio: non intendiamo guastarvi qualche 
sorpresa successiva). 

Uccideteli col cannone laser o comun- 
que guardate che siano lontani dalla li- 
nea che congiunge voi e il portello che 
volete assaltare, poiché vi daranno la 
caccia non appena abbandonerete la 
postazione. Ora guardate i portelli di- 
strutti, uno per uno: se all’interno di es- 
si appare un membro dell'equipaggio, 
sono da assaltare: altrimenti lasciateli 
perdere. Ci siete? Date un'occhiata al 
tempo che vi è rimasto — non ne avete 
moltissimo! — ed entrate nel portello 
che avete scelto, all’interno del quale 
si trova il vostro compagno da soccor- 
rere... ben difeso da una schiera di alie- 
ni e robot che si dirigeranno senza in- 
dugio verso di voi, decisi ad eliminarvi 
senza mezzi termini. Potete effettuare 
il soccorso solamente facendo piazza 
pulita di tutti gli alieni presenti, e que- 
sta è la parte più impegnativa della 
missione: dovete essere infatti in pos- 
sesso di nervi d'acciaio uniti a una 
grandissima padronanza dei controlli, 
o non avete la benché minima speran- 
za di riuscire a combinare qualcosa. 
Una volta ripulito il compartimento ca- 
ricate il vostro compagno e uscite 
all'esterno, ma attenzione! Dovete arri- 
vare al portello del vostro incrociatore 
senza farvi catturare dagli alieni rima- 
sti nello spazio esterno, evitando di 
sparare (perché in questo caso perde- 
reste il membro dell'equipaggio-appe- 
na salvato), o di toccare i satelliti flut- 
tuanti (idem come sopra). ll tutto, ov- 
viamente, prima che finisca il tempo a 
disposizione per ogni livello. 

COSMIC CRUISER è il tipico arcade 
“spaziale”, ma rispetto ai vari Space In- 
vaders della situazione si trova in van- 
taggio di qualche anno luce, sia per la 
qualità grafica del gioco, anche se al- 
cune volte l’affollarsi dei vari oggetti 
animati in zone ristrette dello schermo 
provoca fenomeni abbastanza fastidio- 
si di lampeggio o sovrapposizione (del 
resto virtualmente insuperabili, a que- 
sto livello, sul vostro Spectrum), sia 
per l'originalità del soggetto, sia — an- 
che qui vale quanto detto per PEDRO 


— per la varietà di situazioni proposte. 
In questo senso ci troviamo ormai alla 
soglia dei giochi o comunque dei pro- 
grammi della “maturità” dello Spec- 
trum: cioè tesi verso lo sfruttamento 
totale di tutte le risorse ottenibili dal 
calcolatore Sinclair. 

Certo, COSMIC CRUISER non è un gio- 
co ‘’intelligente’’, le capacità 
strategico-tattiche richieste sono mini- 
me (limitate a favore di una grande 
manualità e di molto esercizio): ma 
pensiamo che per divertirsi non sia ob- 
bligatorio e nemmeno necessario do- 
versi sempre spremere le meningi fino 
alla fusione delle stesse. Anzi, a volte è 
perfino più distensivo un gioco a base 
di alieni e raffiche di laser che non una 
complicatissima simulazione, magari 
dotata di un foglio di istruzioni chilo- 
metrico. Purché il gioco in questione 
sia un BEL gioco. Come, appunto, 
questo. 


PEDRO (cod. DIGMS08) e COSMIC CRUISER 
(cod. DIGMS09) sono in vendita presso: 
TECHNOCLUB via Rosellini, 12 20124 Milano 
a L. 14.000 cad. più L. 2.000 per spese di 
spedizione. I programmi possono essere ordinati 
utilizzando il coupon pubblicato a pag. 82 


A tutti i lettori 


Tutti i listati pubblicati sono stati ricavati direttamente dal computer dopo aver 
eseguito ed accuratamente testato il programma. Non contengono quindi né errori 
tipografici né errori che comunque impediscano la corretta esecuzione del 
programma stesso. Vi preghiamo pertanto di prestare la massima attenzione nella 
copiatura e di non tempestare di telefonate la redazione, in quanto, ripetiamo tutti i 
listati pubblicati sono corretti. Per eventuali errori tipografici riscontrati nelle linee 
eventualmente comprese nel testo degli articoli (e quindi fotocomposte), verrà pub- 
blicata una errata corrige sui numeri successivi della rivista. 


SUPERSINC® 2/84 - 75 


a cura di Lucio Bragagnolo 


The ZX Spectrum and how 
to get the most from it 
(Io Spectrum: come sfrut- 
tarlo al massimo) 


Ian Sinclair 
ed. Granada Publishing Ltd 


L.14.900 


THE ZX 
SPECTRUM 


and how to get 
the most from it 


IAN SINCLAIR 


Vista la carenza, nel momento in cui 
scriviamo, di grandi novità editoriali 
sul mercato italiano, dedichiamo inte- 
ramente le recensioni di questo nume- 
ro alla produzione britannica. Per quel- 
li che avessero poca dimestichezza con 
la lingua inglese - trovandola ostica o 
addirittura antipatica - una assicurazio- 
ne: sul prossimo (e non solo sul prossi- 
mo) numero ci sarà pane per i loro 
denti... ma ora non sprechiamo altro 
tempo ed entriamo subito in argomen- 
to. 

Come prima cosa, non pensate a rac- 
comandazioni, rapporti privilegiati di 
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parentela o appartenenza comune a 
strane logge più o meno massoniche: 
lan Sinclair, l’autore, non ha alcun rap- 


porto col più famoso Clive, all'infuori . 


della semplice omonimia (come lui 
stesso tiene a precisare nell’introduzio- 
ne). Il libro quindi è stato scritto nella 
più totale libertà e indipendenza di giu- 
dizio; non mancano difatti, capitolo 
per capitolo, accenni di comparazione 
o critiche verso altri calcolatori o lo 
Spectrum stesso, a seconda dell’argo- 
mento trattato. Potrete notare a questo 
proposito, in mezzo a giudizi sempre 
abbastanza sfumati e compassati, tipi- 
camente “inglesi”, un lampo di ferocis- 
sima ironia (forse emerso dall’incon- 
scio in un momento di scarso autocon- 
trollo personale) rivolto contro un ho- 
me computer di altra marca peraltro 
diffusissimo in Italia. Parlando infatti 
dello Spectrum come di un “vero” cal- 
colatore (con cui, data la quantità di 
memoria potenziale disponible e pre- 
vio uso dei Microdrive è possibile an- 
che la piccola/media elaborazione ge- 
stionale dei dati), lo si contrappone a - 
citiamo testualmente - “glorificate ‘ga- 
me machines’ con una minuscola me- 
moria e bisognose di costosissime car- 
tucce aggiuntive per poterle fare lavo- 
rare”. 

Crediamo che non ci sia bisogno di fa- 
re nomi. 

Aldilà degli scherzi (e degli attacchi di 
bile), lo scopo dichiarato del libro è di 
rivolgersi al primo utilizzatore, o a chi 
arriva allo Spectrum da altri sistemi, 
trovandosi spesso in difficoltà nel ten- 
tativo di sfruttare le peculiarità del BA- 
SIC Sinclair. 

Effettivamente Sinclair (lan) è riuscito 
nel suo intento scrivendo un libro che, 
si propone come fedele compagno 
sulla via della programmazione, da te- 
nere di fianco al nostro piccolo ZX e a 
cui ricorrere in caso di incertezze o 
problemi, privilegiando l’idea di una 
guida da sfruttare volta per volta ri- 
spetto a quella del libro da leggere tut- 
to d'un fiato come un'opera omogenea 
o compatta. 

Anche la struttura dei vari capitoli è 
impostata in’ questo senso; ogni argo- 


mento viene trattato per mezzo di coi 
sigli di programmazione spicciola, ca 
si particolari e problemi generali che 
tutti i programmatori o aspiranti tal 
hanno incontrato e quotidianamente 
incontrano nella loro attività. Manca 
certo, una descrizione globare delle 
varie possibilità dello Spectrum: ma si 
presume che per questo sia già più che 
sufficiente il manuale (e qui pensiamo 
che alcuni avrebbero qualcosa - forse 
di poco gentile - da dire in proposito). 
Il libro parte veramente da zero, soffer 
mandosi abbastanza a lungo sul come 
collegare il computer a televisore e re- 
gistratore, per poi immergersi nel vivo 
della materia. La trattazione di ogni ar- 
gomento viene fatta in modo da non 
fornire solamente la spiegazione del 
mero “come funziona”, ma anche i 
vantaggi che possono derivare dalla 
corretta applicazione di quanto spiega- 
to. A questo proposito è confortante 
poter rilevare la non dimenticanza di 
alcune funzioni perennemente trascu- 
rate che invece, se bene usate, potreb- 
bero contribuire a rendere la program- 
mazione più facile, specialmente ai 
meno esperti che magari nemmeno le 
hanno mai notate. Valgano per tutti gli 
esempi di DEF FN, FN, il segno “” 
nelle istruzioni PRINT, POINT e così 
via. 

Finalmente abbiamo letto una spiega- 
zione sintetica e comprensibile a tutti 
del concetto di radiante e delle sue ap- 
plicazioni nel BASIC: e raccomandia- 
mo inoltre la lettura del capitolo 
“Sound Sense”, dedicato alla capacità 
sonore dello Spectrum e veramente 
stupendo quanto a completezza, chia- 
rezza e contenuto di informazioni. 

Al termine del libro, alcune appendici, 
di varia utilità: come regolare la testina 
del registratore per una corretta lettura 
(ottima), l’uso dell’orologio in tempo 
reale sullo Spectrum, un'introduzione 
al codice macchina (un poco scarna), 
una descrizione delle possibilità di 
espansione a disposizione, una routine 
di renumber (anche se non ci fosse sta- 
ta non ne avremmo davvero sentito la 
mancanza), qualche consiglio su come 
agevolare le operazioni di 
LOAD/SAVE e un glossario finale di 
termini attinenti al mondo dell’infor- 
matica, che senz'altro farà la felicità di 
chi ha sempre avuto tra le sue aspira- 
zioni quella di riuscire a capire certi 
termini astrusi e incomprensibili. 

Nel complesso, un libro in grado di ri- 
solvervi molti problemi, e che potrà es- 
servi d'aiuto, specie agli inizi della “ars 
programmandi”. 


The Spectrum Book of Ga- 
mes 

(il libro dei giochi per lo 
Spectrum) 


Mike James, S.M. Gee, Kay Ew- 
bank 


ed. Granada Publishing Ltd 
'L. 14.900 


Se finora abbiamo presentato libri di 
argomento generico, destinati a soddi- 
sfare nei limiti del possibile tutte le esi- 
genze dei possessori di uno Spectrum, 
ci occupiamo questa volta di un lavoro 
a carattere estremamente specifico, di- 
retto agli appassionati di un'unica 
branca del grande insieme delle appli- 
cazioni del computer (anche se vedre- 
mo più tardi come l’affermazione ap- 
pena fatta sia solo parzialmente 
valida): i giochi. Non che il settore 
dell'informatica ludica sia ristretto: an- 
zi, si calcola che più della metà ’del 
software esistente sulla terra sia dedi- 
cata ai patiti del Joystick e delle pad- 
dle, disposti a sacrificare ore e ore del 
loro tempo libero per distruggere on- 
date di invasori spaziali, liberare affa- 
scinanti fanciulle dalle mani del catti- 
vo della situazione, o magari compila- 
re dettagliatissime mappe dei luoghi 
più o meno incantati in cui si imbatto- 
no nel tentativo di scoprire i segreti ce- 
lati nel loro adventure game preferito; 
ma si tratta pur sempre di un settore, 
in mezzo a centinaia di altri ugualmen- 
te importanti. 


Gioco, dunque: e il libro mostra subito 
la sua finalità principale, evidente dal- 
la copertina dove campeggia, stilizza- 
ta, un'immagine tratta da uno dei ca- 
postipiti dell'immensa famiglia degli 
arcade. 

In effetti sarebbe facile dare un'occhia- 
ta superficiale a questo “Book of ga- 
mes” per bollarlo frettolosamente co- 
ma la solita raccolta di giochini per 
bambini. La realtà invece è diversa, e 
basta approfondire di poco l'indagine 
per scoprire molte cose interessanti 
che rivalutano di molto il lavoro com- 
piuto dagli autori. 

I giochi, presentati sono 21, di cui 10, 
definibili senza indugio come arcade: 
tra questi anche il superclassico Spec- 
trum Invaders, seguito da altri passa- 
tempi per cui si richiedono buona de- 
strezzà e ottimi riflessi, tutti comunque 
contraddistinti dalla ricerca dell’origi- 
nalità, se non nella scelta dell’argo- 
mento del gioco almeno nel suo mec- 
canismo. Da citare Commando Jump 
(un provariflessi), Sheepdog Trials (le 
peripezie di un cane pastore che tenta 
di radunare un gregge di pecore) e Sa- 
ve The Whale, dal meccanismo cono- 
sciutissimo ma ambientato nienteme- 
no che in...Groenlandia. 

Oltre a questi, abbiamo poi i giochi, di- 
ciamo, “intelligenti”, volti al ragiona- 
mento o comunque all'attenzione di 
chi partecipa. Qui spaziamo dal bana- 
lissimo (e che avrebbero potuto rispar- 
miarci) Noughts and Crosses - il Tris - a 
Mirror Tile, ispirato a un noto gioco 
enigmistico, a un Nine Hole Golf molto 
stimolante e classificabile come uno 
dei migliori giochi del libro, a Capture 
the Quark, interessante gioco di scac- 
chiera, anch'egli piuttosto conosciuto 
ma presentato in una veste più impe- 
gnativa di quella consueta, grazie an- 
che all'intervento di un pizzico di ca- 
sualità. Seguono un paio di program- 
mi utili più che altro come spunto per 
la creazione successiva di giochi più 
complessi, come il lancio di un dado 
con relativa visualizzazione del risulta- 
to, e infine Spectrum Smalltalk, il più 
bello e sorprendente di tutti. 

Si tratta di un programma in grado di 
sostenere una conversazione con un 
interlocutore umano, con effetti e si- 
tuazioni che sicuramente potrebbero 
sbalordire qualche vostro amico non 
molto competente in fatto di program- 
mazione o magari il papà restio ad av- 
vicinarsi alla ‘“cosa” nera e piena di ca- 
vi che minaccia la sua pace familiare. 
Naturalmente il programma funziona 
in inglese, e per adattarlo in italiano 
dovrete sicuramente lavorarci sopra 
con discreto impegno (si tratta in ogni 
modo di un compito di non eccessiva 
difficoltà di chiunque abbia una mini- 
ma esperienza di programmazione e 
sappia maneggiare con una certa di- 
sinvoltura le istruzioni di trattamento 
stringhe presenti sullo Spectrum). 
Avete evidentemente anche la possibi- 
lità di ampliare il vocabolario a dispo- 


sizione del calcolatore, soprattutto per 
chi ha i 48K, formandosi un vero e pro- 
prio alter ego elettronico. 

Per ciò che riguarda la struttura gene- 
rale del libro, bisogna dare atto agli au- 
tori di avere compiuto un ottimo lavo- 
ro: infatti niente è stato lasciato al ca- 
so. Ogni programma è diffusamente 
commentato, con la spiegazione del 
meccanismo del gioco, l'indicazione 
delle linee che potrebbero presentare 
ambiguità in fase di inserimento, la de- 
scrizione a blocchi del listato e i sugge- 
rimenti per coloro che volessero ci- 
mentarsi nell’ampliamento, migliora- 
mento e personalizzazione di quanto 
pubblicato. Queste parti del libro sono 
estremamente utili per chi desideri im- 
parare a programmare sullo Spectrum, 
vista la chiarezza e la semplicità con 
cui vengono illustrate la struttura e il 
funzionamento delle varie routine che 
compongono ogni programma. In que- 
sto senso, come si diceva all’inizio, il 
banale libretto di giochini si trasforma 
in un utile strumento di apprendimen- 
to anche per chi ha altri interessi; tanto 
più se si considera che la tecnica della 
programmazione dei giochi è spesso 
molto più complessa di quanto non 
sembri vedendo il gioco stesso in fun- 
zione. 

| listati, infine, sono ottimamente ri- 
prodotti (con una stampante diversa 
dalla ZX Printer e da altre contraddi- 
stinte da un funzionamento analogo), 
consentendo una perfetta leggibilità. E 
stato approntato un sistema di codifica 
per i caratteri grafici, che indica anche 
quali di essi sono shiftati (cioè ottenibi- 
li premendo CAPS SHIFT insieme al 
tasto grafico richiesto); tutti i listati so- 
no numerati con passo di linea unifor- 
me e la struttura stessa dei programmi 
si presenta estremamente ordinata e 
“pulita”. 

Certamente questo libro non tratta 
istruzioni strane né si addentra nella 
spiegazione di complicate tecniche di 
programmazione: potrebbe succedere 
tuttavia che, una volta compratolo per 
i giochi contenuti, si riveli invece un 
efficace mezzo per imparare. Quasi co- 
me un professore, ma di quelli capaci: 
in grado cioè di insegnare divertendo. 


The ZX Spectrum (cod. 
BGRC002) e The Spectrum 
Book of Games (cod. 
BGRC003) sono in vendita 
presso: TECHNOCLUB via 
Rosellini, 12 - 20124 Milano 


a L. 14.900 cad. più L. 2.000 
per spese di spedizione. I libri 
possono essere ordinati 
utilizzando il coupon 
pubblicato a pag. 82 
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Der la pagina di presentazione 
pubblicata sul numero precedente, 
siamo finalmente in grado di darvi una 
pagina ZX Club più concreta, grazie al 
materiale giuntoci in questo mese. 
Senza quindi perdere altro tempo (e 
spazio), diamo subito la parola, anzi, la 
penna agli amici del SINCLAIR CLUB 
di BOLOGNA, autori di un bollettino 
ormai al suo terzo anno di vita e di nu- 
merose altre iniziative, tra cui la ge- 
stione di ua ZX biblioteca, la vendita di 
software autoprodotto e - udite, udite, 
sinclairisti di tutta Italia - un network 
telefonico per ZX Spectrum, non sap- 
piamo se già operativo o meno. Per 
tutti gli interessati, ecco l'indirizzo del- 
la segreteria del club: 


Sinclair Club Bologna 

Associazione di Utenti di Microcompu- 
ter 

Via Molino Vecchio 10/F 

40026 Imola (BO) 


E veniamo al software! 


Caratteri in corsivo sullo Spec- 
trum 


di Luigi Rizzo 


Questa breve routine in linguaggio 
macchina permette allo Spectrum di 
scrivere in corsivo. Il principio di fun- 
zionamento è semplice; basta costrui- 
re una tabella che contenga i nuovi ca- 
ratteri ‘inclinati’ e modificare opportu- 
namente il puntatore alla locazione 
23607. Tuttavia è abbastanza noioso 
effettuare la conversione di tutti i codi- 
ci per poi digitarli (sono più di 700!), 
ne è più veloce utilizzare il programma 
apposito presente sulla cassetta dimo- 
strativa “Horizons”. Appare ovvio che 
l’unico modo di evitare tutto questo la- 
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voro è fare ricorso all’uso del set di ca- 
ratteri già presente in ROM, effettuan- 
do le necessarie modifiche per poi ri- 
scrivere il tutto in RAM. 

Per ottenere i caratteri corsivi è suffi- 
ciente fare “slittare” verso destra o ver- 
so sinistra alcune righe della vecchia 
tabella: la cosa, naturalmente, è più fa- 
cilmente e velocemente eseguibile in 
linguaggio macchina che non in BA- 
SIC; pubblichiamo qui di seguito, co- 
munque, entrambe le versioni. 

Per quanto riguarda il linguaggio mac- 


POKE 23607,... 
123 
251 


I numeri tra parentesi sono gli indirizzi 
dell'istruzione RAND... in esadecima- 
le, e non vanno usati in ambiente BA- 
SIC. 


china, la routine risulta molto corta e 
perfettamente adattata agli Spectrum 
16K o 48K tramite opportune istruzio- 
ni POKE. 

Una volta di seguito, il programma 
può essere cancellato — NON spegne- 
te però lo Spectrum! Un NEW (o un 
POKE 23607,60) ristabilisce il set nor- 
male, che può però essere sostituito 
con quello modificato in qualsiasi mo- 
mento. Ecco la tabellina delle istruzio- 
ni necessarie, per entrambe le configu- 
razioni di memoria: 


RAND USR... 
32576 (7F40) 
65344 (FF40) 


Per i programmatori in linguaggio 
macchina, potete leggere qui sotto il li- 
stato assembler e quello “puro” l/m: 


*H CARATTERI CORSIVI 


;(C) Luigi Rizzo 
; Pisa 3/10/1983 


BASE EQU =FC00 
CHARS EQU =3D00 


ORG =FF40 

;FARE CLEAR 64511 
;RAND USR 65344 

;E POI POKE 23607,251 


;il codice oggetto è riloca- 
;ibile senza modifiche 


SET 


LD BC, = 300 


LD HL,CHARS 

LD DE,BASE 

LDIR 

LD B,=60;n. caratteri 


Istruzione DRAW per ZX81 
di Giorgio Guerrini 


La routine che propongo traccia il seg- 
mento congiungente una coppia qua- 
lunque di pixel A=(X1, Yl); 
B=(X2,Y2) dello schermo simulando 
un'istruzione DRAW non presente sul- 
lo ZX81. 

Il programma è stato realizzato utiliz- 
zando un algoritmo equivalente a quel- 
lo descritto sul manuale dello ZX81 
(capitolo 18, pagina 121), ma essendo 
implementata in linguaggio macchina 
offre, rispetto al BASIC, una velocità di 
esecuzione fino a 25 volte superiore, 
nonché una occupazione di memoria 
inferiore alla metà. A titolo di esem- 
pio, la linea corrispondente alla diago- 
nale dello schermo (da A=0,0 a 
B = 63,43) viene disegnata in meno di 
un secondo, mentre l'equivalente BA- 
SIC ne richiede circa 25. 

Per caricare la routine all’interno di un 
programma BASIC eseguite le seguen- 
ti operazioni: 

1) Inserite un'istruzione REM conte- 
nente 130 caratteri. E indispensabile 
che questa sia la prima istruzione del 
programma, poiché alcune istruzioni 
della subroutine dipendono dall’indi- 
rizzo di memoria in cui sono caricate. 
2) Digitate il seguente programmino, o 
un suo equivalente, che servirà per ca- 
ricare i codici decimali: 


9500 LET IND = 16525 
9510 FORI=0 TO 118 
9520 PRINT (IND+1);* *’; 
9530 INPUT COD 

9540 POKE (IND + 1), COD 
9550 PRINT COD 

9560 NEXT I 


3) Digitate il comando GOTO 9500 e 
iniziate a caricare i codici decimali; 
ogni 22 codici caricati lo schermo sarà 
pieno, e vi verrà segnalato un errore 
5/9520. Non vi preoccupate: date 
CONT e NEWLINE, e potrete continua- 
re a caricare. 


Per specificare i valori dell'istruzione 
(e far disegnare la linea corrispondente 
allo ZX81), considerate i punti estremi 
del segmento come A=(X1,Yl) e 
B=(X2,Y2). 

X1,Y1,X2 e Y2 possono essere indiffe- 
rentemente numeri o variabili. Ricor- 
datevi che X1 e X2 devono essere com- 
presi tra 0 e 63 (inclusi), mentre Y1 e 
Y2 hanno come limite 0 e 43. 

Inserite ora nel programma queste 
istruzioni: 


(numero di linea) POKE 16514, X1 
(numero di linea) POKE 16515, Y1 
(numero di linea) POKE 16516, X2 
(numero di linea) POKE 16517, Y2 
(numero di linea) RAND USR 16525 


e potrete finalmente vedere effettuato 
il vostro comando DRAW. 


Indirizzo 


FF40 


FF48 
FF50 
FF58 
FF60 


LD HL, BASE 
RRC 

INC 

RRC 

INC 

RRC 

INC 

INC 

INC 

RLC 

INC 

RLC 

INC 

RLC 

INC 

DJINZ LOOP 


Codice esadecimale 


Infine, il listato BASIC: 


CLEAR 645ll: POKF 23607,251 


FOR i=15616 TO 16380 STEP 8 
LET 

LET 

FOR 

LET d=PEFK j/b 

LET d=d-256*(d>255) 

LET f@fLi 
IF f=0 THEN 
LET f=b+l1 
POKE 48396+j,4 
NEXT 3; 
NEXT i 

LIST 


LET b=b/2: 


Eccovi la lista dei codici: 


33 
145 
4 
144 
4 
sn 
237 


197 
34 
58 

‘130 
56 

120 

67 


130 
30 
30 
22 
22 

0 
83 

237 

139 

138 
64 

n 

130 

130 


64 


SUPERSINC* 


2/84 - 79 


Vendo ZX81 con alimentatore + 
cavetti + manuale ingl. + espan- 
sione da 32K RAM + libro 66 pro- 
grammi + guida allo ZX 81 + al- 
cuni listali: tutto in ottime condi- 
zioni a L. 300.000. Telefonare ore 
serali del sabato e della domenica. 
Giuseppe Rossi - Via Turi, 10 - 
70017 Putignano (Bari) - Tel. 
080/731740 


Cambio Software per Spectrum! 
Se abiti nella mia zona scrivimi 
senza inviare denaro e senza impe- 
gno! Moltiplica il tuo software: 
scambialo o compralo a prezzi ridi- 
coli! Scrivimi anche per scambio 
listati e idee! Fatti vivo! Ciao! 
Enrico Busto - Via Campo Sporti- 
vo, 3 - 10061 Cavour (TO) 


Vendo o cambio 100 programmi 
per lo Spectrum 16/48K quasi tutti 
in LM. Attenzione!!! 20 programmi 
senza limite di scelta (!) solo L. 
30.000. Inviare vostra. lista per 
scambi. Dispongo inoltre di un li- 
bro sulla ROM. 

Romano Bernarducci - Via Gorizia, 
13 - 05100 Terni (TR) - Tel. 
0744/85207 


Vendo sinclair ZX81 nuova ROM 8 
Kbyte con cavetti per registratore 
alimentatore (con una cassetta di 
cinque videogiochi in regalo) a L. 
100.000 

Gianluigi Micheloto - Via Torino, 9 
- 35100 Padova - Tel. 33085 


Vendo 10 giochi in LM (debug, ma- 
nic:miner, 3D monster chase, carri 
armati, survival, alien invader, sot- 
tomarino ed altri) a L. 12.000 o 
scambio con zaxxon per Spec- 
trum. Telefona o scrivi senza impe- 
gno a: 

Marco Cattaneo - Via Lago di Ne- 
mi, 21 20142 Milano - Tel. 
817053 


Vendo programmi per Spectrum a 
prezzi stracciati. Richiedi l'elenco 
gratuito con più di 300 program- 
mi. Scrivi o telefona a: 

Andrea Melesi - Via De Marchi, 25 
- 20052 Monza (MI) - Tel. 
039/321550 


Vendo ZX Spectrum ISSUE3 48K, 
febbraio 1984, per passaggio a si- 
stema superiore, con garanzia Re- 
bit, 50 programmi, manuale in ita- 
liano + programmazione origina- 
le. 

Falco Marcello - Via Torino, 3/7 - 
17100 Savona (SV) - Tel. (019) 
30570 
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Cambio software per Spectrum 
posseggo oltre 400 programmi. 
Sono anche interessata al soft per 
IBM PC. 

Monica Mauro - C.so Montecucco, 
64 - 10100 Torino - Tel. 
011/613714 


Vendo e creo su ordinazione pro- 
grammi per ZX Spectrum 16/48K. 
Inviare L. 600 in francobolli per ri- 
cevere il catalogo completo. Per 
informazioni o richieste scrivere o 
telefonare a: 

Marco Zanchi - Via Vecchi Forno, 7 
- 20080 Caselle Lurani (Milano) - 
Tel. 0371/96345 


ZX Spectrum 48K completo di ma- 
nuali in italiano e inglese cassetta 
dimostrativa in italiano, 100 pro- 
grammi (i più recenti), di cui 20 
utilities, per passaggio a sistema 
superiore, a L. 500.000. 

Sergio Petitto - Via Issiglio, 11 - 
10141 Torino - Tel. 382070 


Programmi per ZX Spectrum invia- 
temi la lista dei vostri programmi e 
io vi invierò la mia telefonate ore 
pasti. 

Francesco Grandomi - Via Aristo- 
bulo, 21 00124 Roma - Tel. 
6093450 


Novità vendo programmi per ZX 
Spectrum 16/48K a prezzi incredi- 
bili (max L. 5.000) giochi fantastici 
ant attack, atic atac, pengo, manic 
miner, orazio va a sciare. Chiedere 
listino gratuito. 

Gianluca Filacchione - Via Interno 
Marina, 60 - 88074 Crotone (CZ) - 
Tel. 0962/20534 


Per ZX81 eccezionale programma 
il Q save, aumenta di 30-49 volte i 
tempi di caricamento, prezzo com- 
petitivo, non lasciatelo scappare, 
telefonare o scrivete a: 

Aldo Farneti - Via Boezio, 2 - 
20145 Milano - Tel. 313282 


A Bolzano, Trento e rispettive pro- 
vince, scambio vendo olte 120 pro- 
grammi per ZX Spectrum (tra cui 
tutti i migliori). Inviare francobollo 
per ricevere listino. 

Michele Valli - Via Passeggiata Ca- 
stani, 43 - 39100 Bolzano 


Vendo ZX81 1K come nuovo vinto 
a un concorso.L’imballo compren- 
de cavetti registratore e TV + te- 
sto 66 programmi pe ZX81. Vendo 
tutto L. 100.000. Telefonate a: 
Luca Longo - Piazza Trento, 35 - 
Caltanissetta - Tel. 38566 


Cerco Sinclair Spectrum 48K op- 
pure Commodore CBM 64 purché 
in buono stato e perfettamente 
funzionante. Solo se affare scrive- 
re o telefonare ore pasti. 

Enrico Simeoli - Via Napoli, 13 - 
80126 Pianura (NA) - Tel. 7265870 


Compro, cambio o vendo pro- 
grammi per Spectrum. Ho quasi 
tutti i programmi chiedere e/o 
mandare lista e/o chiedere prezzi 
(comunque molto bassi). 
Giuseppe Cirillo - Via Livorno, 22 - 
80059 Torre del Greco (NA) 


Vendo sinclair ZX81 + espansione 
16K + cavi a L. 150.000. 

Alessandro Barducci - Via Sarace- 
no, 39 - 44100 Ferrara - Tel. 
0532/39150 


Compro espansione di memoria 
per ZX81 16K RAM. Tratto possi- 
bilmente con la zona di Cagliari. 
Telefonare ore pasti 

Davide Itarras - Via Gian Battista 
Vico, 21 - 09045 Quartu S.E. (Ca- 
gliari) - Tel. 070/810167 


Vendo ZX81, 6 mesi di uso +. 


espansione 18K RAM + alimenta- 
tore + 4 libri istruzioni + centipe- 
de, defender, regolo e molti altri 
pgrammi. Tutto a sole L. 275.000 
trattabili. Tutto perfettamente fun- 
zionante. Scrivere subito a: 

Mario Scavino - Lagustena, 136/20 
- 16131 Genova (GE) 


Cambio programmi di vario gene- 
re per ZX Spectrum 16/48K. Di- 
spongo di programmi di matemati- 
ca, statistica, ingegneria e molti 
giochi. Sono disposto anche all'ac- 
quisto e alla vendita. Inviate la vs. 
lista e riceverete il cambio la mia. 
Dario Durante - Via A. Meucci, 22 - 
64022 Giulianova (TE) 


Cambio pragrammi per Sinclair ZX 
Spectrum. Ne ho una quarantina. 
Cerco espansione per 48K a prezzo 
ragionevole. 

Massimo Porcari - Via Calatafimi, 
12 bis - 43100 Parma - Tel. 94497 


Vendo penna ottica per Spectrum 
della “Nuova Newel” con software 
e manuale in italiano. Programmi 
a L. 3.000 ciascuno oppure 10 per 
L. 24.000. Tre chiavi per duplicare 
anche senza header a L. 10.000 
Marco Sivori - Via Barchetta, 18/9 - 
16162 Bolzanetto (GE) - Tel. 
010/403118 


Cambio programmi per ZX Spec- 
trum 16/48K. richidetemi la lista o 
inviatemi la vostra risposta, assi- 
curata e rapida. Scrivere o telefo- 
nare a: 

Liviano Vitali - Via Firenze, 29/3 - 
41035 Massa Finalese (MO7 - tel. 
0535/99700 


Vendo urgentemente ZX81 + 
espansi one 64K + stampante + 2 
alimentatori + ingresso joy + 
molti programmi in LM tra cui 
scacchi, pacman, invaders, centi- 
pede e molti listati il tutto come 
nuovo a L. 500.000 trattabili; assi- 
curo assistenza software. 
Vincenzo Aversano - Via Robino, 
96 G/3 - 16141 Genova - Tel. 
010/882830 


Cambio software per ZX Spectrum. 
Novità inglesi. Inviatemi la vostra 
lista e vi risponderò subito. 
Luca Lachello - Via Guali, 119 - 
10135 Torino - 011/613810 


Vendo 180 programmi originali 
per Spectrum a L. 250.000 tra cui: 
chequered, flag, manic miner, VU. 
3D richiedete il catalogo, allegan- 
do L. 500 a: 

Patrizio Basile - Zona Ardizzone 
pal. 13/a - 95047 Paternò (CT) 


Super programma totocalcio in 
LM per elaborazione sistemi inte- 
grali con lo ZX Spectrum 48K oltre 
al solito numero di segni IX2 o dei 
consecutivi eliminazione di segni 
indesiderati sulle 13 partite e nu- 
mero colonne sistema elaborato. 
Gianbattista Gilberti - Via B. Pa- 
scal, 23 - 25050 Passirano (BS) 


Vendo tastiere professionali per 
Spectrum e ZX81 L. 49.000. Tra- 
sforma il tuo giocattolo in un vero 
compblter. Allega il bollo, riceverai 
informazioni dettagliate. 

Marino Severi - Piazza Isei, 28 - 
47023 Cesena (FO) - Tel. 
0547/20890 : 


Per la 
pubblicazione 
dei vostri 
annunci 
utilizzare il 
coupon a pag. 


Per collaborare a SUPERSINC 


La maggior parte dei seguenti suggerimenti ha lo scopo di migliorare l'accuratezza e la velo- 
cità di pubblicazione di un articolo; rispettando questi consigli si accresceranno le probabi- 
lità che un vostro lavoro venga pubblicato. La rivista è interessata ad articoli e programmi 
riguardanti la linea Sinclair. Siamo più interessati al contenuto di un articolo piuttosto che 
al suo stile, e soprattutto gli articoli devono essere chiari ed esaurienti. La seguente guida 
permetterà che le vostre buone idee e i vostri programmi vengano più facilmente accettati 


per la pubblicazione: 


1 l'angolo superiore sinistro della prima pagi- 
na dovrà contenere: nome, cognome, indi- 
rizzo, numero telefonico, codice fiscale e data di 
spedizione. 
2 l'angolo superiore destro della prima pagina 
dovrà contenere il nome del computer al 
quale il lavoro si riferisce, unitamente alla confi- 
gurazione richiesta (memoria occorrente, even- 
tuali periferiche e così via). 
3 il titolo sottolineato dell'articolo dovrà ini- 
ziare a circa due terzi in altezza della prima 
pagina. 
4 le pagine seguenti potranno essere battute 
normalmente, con la condizione che l’ango- 
lo superiore destro contenga un'abbreviazione 
del titolo e del cognome, unitamente al numero 
di pagina progressivo. Per esempio, Horace 
Goes.../Brambilla/2. 
tutte le linee del testo dell’articolo dovranno 
essere battute con spazio 2 o spazio 3, e un 
margine di circa un centimetro dovrà trovarsi ad 
entrambi i lati dello scritto. 
dovrà essere usata una carta formato A4 e lo 
scritto dovrà occupare un solo lato del fo- 
glio (caratteri maiuscoli e minuscoli). 


1 i fogli dovranno essere uniti con una clip. 
& avendo intenzione di spedire più di un arti- 
colo, questi dovranno essere inviati separa- 
tamente insieme alla rispettiva copia su suppor- 
to magnetico. 
9 programmi brevi (meno di 20 linee) potran- 
no essere inseriti nel testo, mentre program- 
mi più lunghi dovranno essere listati separata- 
mente. E ESSENZIALE per noi disporre di una 
copia del programma registrata più volte su 
supporto magnetico, su entrambi i lati dello 
stesso. E preferibile usare nastri di buona quali- 
tà e di lunghezza non eccessiva; la cassetta o la 
cartuccia per Microdrive dovranno essere eti- 
chettati con il nome dell'autore, il titolo dell’ar- 
ticolo, il computer interessato e soprattutto le 


eventuali espansioni richieste. Come suggeri- 
menti di programmazione, si consiglia di usare, 
per esigenze di stampa listati, le istruzioni INK, 
PAPER, INVERSE piuttosto che scrivere diretta- 
mente in INVERSE VIDEO. Un rapido controllo 
dei programmi per operare queste sostituzioni 
sarà da noi estremamente apprezzato. 
1 per maggior chiarezza, all’interno dell’ar- 
ticolo è conveniente usare caratteri maiu- 
scoli riferendosi a istruzioni BASIC (esempio 
RETURN, LIST, RND, PRINT etc.). Se si desidera 
evidenziare una parola, è preferibile sottolinear- 
la piuttosto che scriverla in carattere maiuscolo. 
1 1 gli articoli ed i programmi potranno avere 
qualsiasi lunghezza — da una routine di 
una sola linea fino a programmi molto comples- 


si. 

1 ona includere fotografie, queste do- 
vranno essere in formato 24 x 36, o 6 x 6, 

in bianco e nero o diapositive. 

1 c, tear prenderemo in considerazione artico- 
li che siano stati sottoposti ad altre case 

editrici. 

1 4i compenso per la collaborazione presta- 
ta sarà commisurato alla complessità e 

all'interesse del programma (da un minimo di L. 

50.000 a un massimo di L. 300.000). Il paga- 

mento è effettuato in caso di pubblicazione del 

lavoro. 

1 5i materiale ricevuto e non pubblicato non 
verrà restituito. 


Spedite i vostri lavori a: 


SUPERSINC 
Via Rosellini, 12 
20124 Milano 


e saremo lietissimi di pubblicare i contributi mi- 
gliori. 


La Redazione 
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SUPERSINC LIBRI THE ZX SPECTRUM AND How 


TO GET THE MOST FROMIT cod. BGRC002 L. 14.900 
CEDOLA DI ORDINAZIONE - LIBRI THE SPECTRUM BOOK OF GAMES — cod. BGRC003 L. 14.900 


da compilare e spedire in busta chiusa a 
TechnoClub - Via Rosellini, 12 - 20124 Milano Tel. 6888228 


Ordino i seguenti libri per un importo totale di L. .......................rrrrerrerenee» + L. 2.000 


come contributo fisso per spese di spedizione 


CO. ricettario (PT A SROE Baa E AIA [107 AASSPESE EREDE ATRIA 


Codliniiaireniciacioi [01 BOE SA SE SL IRE RUN 


Se richiesta fattura: 
Cod. F. e P. Iva 


Ho spedito l’importo a mezzo vaglia postale 


Ho versato l'importo sul ccp. n° 19445204 intestato a Technoclub - Milano 


] Pagherò in contrassegno al postino al ricevimento dei volumi (valido solo per Peri soci residenti all’estero — pagamento anticipato (vaglia o versamento su ns. 
i soci in Italia) 


PEDRO cod. DIGMS08 L. 14.000 
SUPERSINC SOFTWARE cosmic cruiser cod. DIGMS09 L. 14.000 
CEDOLA DI ORDINAZIONE - cassetta 
da compilare e spedire in busta chiusa a 
TechnoClub - Via Rosellini, 12 - 20124 Milano Tel. 6888228 


Ordino le seguenti cassette per un importo totale di L. .......................xer» + L. 2.000 


come contributo fisso per spese di spedizione LULU 
(07 ADE SCIA N A APRE Carati Lai Cogli. vii. COgnome .............e.crvcrrrrrerrtrrcrenaaneseieznineniensentteneiensrnenzantntenearaetenreriensctennienenenionnezaceontesee 
Por ERA SPOCARIBIA Cod. ne Code) o di VIA ..cccicccerrezzenizizeoneseneninentenzonizrisionnenineneninte seta re rzonzenennteninieneinioneenentenetenezenin zz snentanivananenesenzeneo 

Contanti allegati DI ASSEGNO Allegato N° ...................-rrsseseriezioniseeesercivee iii CIELÀ nicnornimrcreenrirezonionzvaszbonioni IAP rivizicccemecorezincanzioneziosione PIOV. ....svrscscvssenezennseninsaniosene 


Se richiesta fattura: 


MUTIEETAZZ TENZA ZZ ZETA ZA na Ta nia nananana nine e nenazezezeezionseseeeeeeezeseeaieneeaenees 000 ese saeezezezazezeezeseeneeaze ze ze zena eee zia nente 


(e O NOS EOS AIR RE TIE ARIE I 
O Ho spedito l’importo a mezzo vaglia postale Data 
O Ho versato l’importo sul ccp. n° 19445204 intestato a Technoclub - Milano Firma 


O Pagherò in contrassegno al postino al ricevimento delle cassette (valido solo Peri soci residenti all’estero — pagamento anticipato (vaglia o versamento su ns. 
per i soci in Italia) ccp) 


SUPERSING + rubrica INPUTIOUTAUT è gratuita ed aperta a SUPERSINC è bello, però... (ovvero suggerimenti, 


tutti i lettori. Chi desidera comprare, vendere o È vo È ci 23 : 
INPUT/OUTPUT cambiare hardware o software può inviare il ta- idee, critiche, richieste e tutto ciò che vi passa per 
gliando a J.soft - Via Rosellini, 12 - 20124 MILANO la testa). 


O COMPRO O VENDO O CAMBIO 
ZX80 O ZX81 DD ZX Spectrum O) PERIF. O SOFTWARE 


GP I00VC/ITALY 


stampante grafica “dedicata” per 
computer commodore 64 e vic 20: 


SEIKOSHA 


Dal “De- 
sign” sempre pia- 
cevole e dal prezzo in- 
credibilmente contenuto, la 
qualità offerta da questa supere- 
conomica è esattamente quella 
che ci si attende da una stampante 
con il nome Seikosha! 

GPI100 è stata infatti la prima stam- 


Pad fai I pra, 
DER le IE 


REBIT 


COMPUTER 


A DIVISION OF G.B.C. 


pante ad avvi- 
cinare il mondo 
dell'home compu- 
ting con costi pro- 
porzionati e presta- 
zioni ineccepibili in ter- 

mini di qualità di stampa 

e affidabilità; questo come risultato di 
un'economia di scala e non di progetto. 


Caratteristiche: 


e Stampante ad impatto a matrice di punti 
da 80 colonne 

e Matrice di stampa 5x7 

e Percorso di stampa monodirezionale (da 
sinistra a destra) 

e Capacità grafiche con indirizzamento del 
singolo dot 

e Possibilità di ripetizione automatica di un 
carattere grafico 

e Velocità 30 caratteri/secondo 


e Caratterizzazione: 10 cpi e relativo espanso 

e Interfaccia: specifica per Commodore VIC 
20 e 64 

e Alimentazione carta: trattori (larghezza 
modulo continuo variabile da 4,5 a 10”) 

e Stampa 1 originale e 1 copia 

e Set di 116 caratteri ASCII 

e Consumo 8W (standby) o 20W (stampa) 

e Peso 4,5 KG 

e Dimensioni: 
234,5 (prof.) x 420 (largh.) x 136 (alt.) mm. 

e Nastro: singolo colore su cartuccia dedicata 


E IN EDICOLA 


PAPERSOFT, 
il primo settimanale di software 

per il tuo home e personal computer 
a sole 1.000 Lire. 


J. Soft Editrice - Via Rosellini, 12 - 20124 Milano - Tel. 683797-6888228 


